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.NOdlN 

;KS10 MICROCODE PARAMETER FILE 

PARAMETER FILE DEFINITIONS FOR T10KI 
;T0PS-10 KI PAGING MICROCODE (V7.02) 



. SET/UBABLT= 1 
. SET/KLPAGE=0 
. SET/N0NSTD=1 



SUPPORT UBABLT INSTRUCTIONS 

REMOVE KL PAGING (REQUIRED FOR UBABLT) 

FOR NOW , CALL THIS VERSION NON-STANDARD 
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13 



.BIN 
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14 . NOB IN 

15 .TITLE "KS10 MICROCODE V124, 27-JUL-84" 
16 

17 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

18 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:;;;;;;;;;;;;;;;;;; 

19 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

20 ; ; ; 

21 ; ; ; 



22 ;;; COPYRIGHT (C) 1976,1977,1978,1979,1980,1981,1982, 

23 ; ; ; 1984 

24 DIGITAL EQUIPMENT CORP . , MAYNARD, MASS. 

25 ; ; ; 

26 ;;; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE 

27 ; ; ; ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED 

28 ; ; ; ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT 

29 ;;; NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 

30 ;;; MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO 

31 ;;; ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND 

32 ;;; TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO 

33 ;;; AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 

34 ; ; ; REMAIN IN DEC. 

35 ; ; ; 

36 ;;; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

37 ; ; ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS 

38 ;;; A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 

39 * ■ ° 

40 ;;; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 

41 ;;; RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS 

42 ; ; ; NOT SUPPLIED BY DEC. 

43 ; ; ; 

44 ; ; ; DESIGNED AND WRITTEN BY: 

45 ; ; ; DONALD A. LEWINE 

46 ;;; DIGITAL EQUIPMENT CORP. 

47 ; ; ; MARLBORO, MASS. 

48 ; ; ; MR1-2/E47 X6430 

49 ; ; ; 

50 ;;; MAINTAINED AND ENHANCED BY: 

51 ; ; ; DONALD D. DOSSA 

52 ;;; DIGITAL EQUIPMENT CORP. 

53 ; ; ; MARLBORO, MASS. 

54 ;;; 'MR1-2/E18 DTN 231-4138 

55 ; ; ; 

56 ; ; ; SEAN KEENAN 

57 DIGITAL EQUIPMENT CORP. 

58 ; ; ; MARLBORO, MASS. 

59 ;;; MR1-2/E18 DTN 231-4463 

60 ; ; ; 

61 ; ; ; TIM LITT 

62 PK01/C-2 223-6334 

63 ; ; ; 

64 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:;; 

65 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

66 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 



67. 
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"REVISION HISTORY " 



WHY 



START KS10 MICROCODE BASED ON SM10 MICROCODE VERSION 510 
UPDATE TO KS10 VERSION 512 
FIX SOME DEFAULTS 

CHANGE HARDWARE TO MATCH ECO #215 
START TO UPDATE 10 MICROCODE 
MORE WORK ON 10 

MAKE INTERRUPT THE 8080 BE A PULSE. 
ADD NEW RDIO AND WRIO 

FIX PROBLEMS IN MUUO CODE & CORRECT T-FIELDS 

FIX PROBLEMS IN DDIV 

FIX UP PROBLEMS IN PI 

TURN ON WRITE FOR FL-EXIT 

FIX UP MAP INSTRUCTION 

MORE WORK ON KI -STYLE MAP 

INVERT HOLD RIGHT AND HOLD LEFT BITS 

FIXUP WRIO & RDIO EFFECTIVE ADDRESS CALC. 

FIX EDIT 15 

HAVE LSH USE FAST SHIFT HARDWARE 

FIX T- FIELD VALUES FOR PRODUCTION HARDWARE 

REMOVE WRITE TEST FROM 10 READS & WRITES 

REWRITE MUL & MULI TO BE FASTER AND SMALLER. ALSO MAKE ADJBP 
USE NEW MULSUB 

MAKE BYTES USE FAST SHIFT ECO. 

MAKE SURE VMA FETCH IS CORRECT 

MORE OF 25 (FORGOT FMP) 

FIX SOME PROBLEMS WITH TRAPS 

SPEED UP EFFECTIVE ADDRESS CALCULATION 

MORE OF 32 

SPEED UP ASH & ROT 

FIX UP RDTIM SO THAT TIME DOES NOT GO BACKWARDS 
MORE OF 35 

FIX UP PROBLEMS WITH INTERRUPTS AND DOUBLE F.P. 

IMPROVE LISTING FORMAT 

SPEEDUP KL-MODE PAGE REFILL 

FIX UP DDIV 

STILL MORE DDIV STUFF 

CORRECT PROBLEMS IN D.P. PARITY STUFF 

CORRECT THE BLT CLEAR-CORE CASE TO INTERRUPT CORRECTLY 
MORE OF 45 

DO NOT ALLOW SOFTWARE INTERRUPTS IF THE PI LEVEL IS NOT 
ACTIVE. 

MAKE FDV WORK THE SAME AS THE KL10 

FIX INTERRUPT IN CVTBDX. MAKE ABORT WORK LIKE SPEC. 
FIX BUG IN HALT LOOP 

FIX IOEA TO WORK IF NO 9 OR INDEXING 
EDIT 47 BROKE JEN 

FIX FLAGS IN MULTIPLY. ALSO CODE BUMS 
MORE CODE BUMS 

CORRECT OVERFLOW TRAPS WHICH DO MUUOS TO NOT STORE 
THE TRAP FLAGS. 
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CORRECT TRAPS SO THAT DSKEA RUNS RIGHT 

MORE OF 60. NOTE: MICROCODE REQUIRES ECO #299!! 

ONE MORE TRY AT EDIT 60. 

CORRECT TOPS- 10 STYLE PAGING SO THAT A WRITE VIOLATION SETS 

BIT 2 IN THE PAGE FAIL WORD (ACCESS ALLOWED). 

EDIT 63 BROKE HARD PAGE FAILS. (NXM, BAD DATA, AND 10 NXM) 

INTERRUPTS OUT OF MOVSRJ INSTRUCTIONS DO STRANGE THINGS. 

10 NXM PAGE FAIL FOR MISSING UBA GIVES PC+1 IN PAGE FAIL BLOCK. 

ON A BAD DATA ERROR, STORE THE BAD WORD IN AC BLOCK 7 WORD O AND 

1 

FIX A BUG WHICH CAUSED INTERRUPTS OUT OF CVTBDT TO GENERATE A BAD 
ANSWER. 

CLEANUP SOME THINGS TO MAKE LIFE EASIER FOR FIELD SERVICE 
LOOK FOR 1-MS TRAP ON P PAGE POINTERS AND ABORT REFILL IF 
SET. 

CORRECT EDIT 72. 

EDIT 67 GENERATES A DATA PATH PARITY ERROR BECAUSE OF THE BAD 

DATA. CORRECT TO NOT CHECK PARITY. 

ALSO CHANGE POP TO TIE UP BUS LESS. 

EDIT 60 BROKE TRAPS. MISSING =0 AT TRAP:. 

CORRECT BUG IN DFAD AND DFSB 

FIX PROBLEM SEEN IN SOME (ALL BUT ENGINEERING?) MACHINES CAUSED 
BY EDIT 76 

CHANGE DFAD/DFSB TO HAVE 2 MORE GUARD BITS. THIS SHOULD PRODUCE 

KL10 ANSWERS FOR ALL NORMALIZED INPUTS 

ALSO FIX A BUG IN CVTBDX PAGE FAIL LOGIC. 

DFDV OF 0.0 / -0.5 HANGS THE MACHINE 

FIX CHOPPED FLOATING POINT INSTRUCTIONS 

CORRECT DFDV ROUNDING BUG. 

CORRECT PROBLEMS IN DFMP 

RDTIME SOMETIMES GIVES WRONG ANSWER. CARRY BETWEEN 
WORDS GETS LOST SOMETIME. 

MOVEM (ALSO, SETZM, SETOM, ETC.) SOMETIMES DOES NOT GENERATE 

A WRITE-TRAP IN 100% OF THE CASES THAT IT SHOULD. 

PXCT 14, DOES NOT GET THE INDEX REGISTER IN THE PREVIOUS 

CONTEXT ALL THE TIME. 

FIX TYPO IN EDIT 103 ' 

63. BIT BYTES DO NOT WORK CORRECTLY. DSKDA FAILS BECAUSE OF THIS 
PROBLEM. 

* VERSION 111 WENT OUT WITH SYSTEM REV 2 ******* 
FIX COMMENT IN TEST INSTRUCTIONS 

CORRECT IOEA TO COMPUTE CORRECT ADDRESS IF JUST LOCAL INDEXING 
IS USED. 

CORRECT INTERRUPT BUG IN DMUL 
CORRECT COMMENTS HALT STATUS BLOCK 

CORRECT PROBLEM WHERE CST MODIFIED BIT GETS SET BY MISTAKE. 
RDINT INSTRUCTION DOES NOT WORK AT ALL. IT STORES RANDOM TRASH 
IN THE WRONG PLACE. NEED TO LOAD BR NOT AR . 

FLOATING POINT OPERATIONS SOMETIMES GET THE WRONG RESULT WITH 
INPUTS OF UNNORMALIZED ZEROS. THIS SHOULD NEVER HAPPEN WITH 
FORTRAN OR ANY OTHER DEC LANGUAGE. 

PREVENT KEEP-ALIVE CRASHES FROM OCCURRING BECAUSE THE MOVSRJ 
INSTRUCTION CAN LOCK OUT THE 1MS TIMER INTERRUPTS FROM BEING 
HANDLED. THIS CAUSES THE OPERATING SYSTEM TO LOSE TRACK OF THE 
PASSAGE OF TIME. 
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DFAD FOLLOWED BY A FSC OF -5 CAUSES THE FSC TO GET WRONG 
ANSWER. HAD TO CLEAR FLAG WORD AT EXIT OF DFAD TO FIX PROBLEM 
MORE CODE FOR EDIT 121. ADDED ANOTHER DISPATCH ADDRESS FOR 
PAGE FAIL CODE AT PFD: . 

ADD ASSEMBLY OPTIONS FOR NOCST AND INHIBIT CST UPDATE. 

ADD BLTUB/BLTBU TO GET UBA STYLE BYTES SWAPPED TO/FROM ILDB FORM. 

ADD ASSEMBLY OPTIONS FOR KI/KL PAGE. NEED THE SPACE FOR BLTUB/BU. 
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187 .TOC "HOW TO READ THE MICROCODE" 
188 

189 ; 

190 ; 

191 ; 1.0 FIELD DEFINITIONS 

192 ; 

193 ; THESE OCCUR AT THE BEGINNING OF THE LISTING, IN THE SOURCE FILE KS10.MIC 

194 ; (CONTROL AND DISPATCH RAM DEFINITIONS). THEY HAVE THE FORM: 

195 ; 

196 ; SYMBOL/ =<L : R>M , J 

197 ; 

198 ; THE PARAMETER (J) IS MEANINGFUL WHEN "D" IS SPECIFIED AS THE DEFAULT MECHANISM, 

199 ; AND IN THAT CASE, GIVES THE DEFAULT VALUE OF THE FIELD IN OCTAL. WHEN "F" IS 

200 ; SPECIFIED AS THE DEFAULT MECHANISM, (J) IS THE NAME OF A FIELD WHICH CONTAINS 

201 ; THE DEFAULT VALUE FOR THIS FIELD. " 

202 ; 

203 ; THE PARAMETER (L) GIVES THE BIT POSITION OF THE LEFTMOST BIT IN THE FIELD. THE 

204 ; SAME METHOD IS USED AS FOR (R) BELOW. 

205 ; 

206 ; THE PARAMETER (R) GIVES THE FIELD POSITION IN DECIMAL AS THE BIT NUMBER OF THE 

207 ; RIGHTMOST BIT OF THE FIELD. BITS ARE NUMBERED FROM O ON THE LEFT. NOTE THAT 

208 ; THE POSITION OF BITS IN THE MICROWORD SHOWN IN THE LISTING BEARS NO RELATION TO 

209 ; THE ORDERING OF BITS IN THE HARDWARE MICROWORD, WHERE FIELDS ARE OFTEN BROKEN UP 

210 ; AND SCATTERED. 

211 ; 

212 ; THE PARAMETER (M) IS OPTIONAL, AND SELECTS A DEFAULT MECHANISM FOR THE FIELD. 

213 ; THE LEGAL VALUES OF THIS PARAMETER ARE THE CHARACTERS "D", "F", "T", "P", OR 

214 ; "+". 
215 

216 ; "D" MEANS (J) IS THE DEFAULT VALUE OF THE FIELD IF NO EXPLICIT VALUE IS 

217 ; SPECIFIED. 

218 ; 

219 ; "F" IS USED TO CAUSE THIS FIELD TO DEFAULT TO SOME OTHER FIELD. 

220 ; / 

221 ; "T" IS USED ON THE TIME FIELD TO SPECIFY THAT THE VALUE' OF THE FIELD 

222 ; DEPENDS ON THE TIME PARAMETERS SELECTED FOR OTHER FIELDS. 11 T H IS NOT 

223 ; USED IN THE KS10. 

224 ; 

225 ; "P" IS USED ON THE PARITY FIELD TO SPECIFY THAT THE VALUE OF THE FIELD 

226 ; SHOULD DEFAULT SUCH THAT PARITY OF THE ENTIRE WORD IS ODD. "P" IS NOT 

227 ; USED ON THE KS10. 

228 ; 

229 ; " + '* IS USED ON THE JUMP ADDRESS FIELD TO SPECIFY THAT THE DEFAULT JUMP 

230 ; ADDRESS IS THE ADDRESS OF THE NEXT INSTRUCTION ASSEMBLED (NOT, IN 

231 ; GENERAL, THE CURRENT LOCATION +1). 

232 ; 

233 ; IN GENERAL, A FIELD CORRESPONDS TO THE SET OF BITS WHICH PROVIDE SELECT INPUTS 

234 ; FOR MIXERS OR DECODERS, OR CONTROLS FOR ALU'S. . 

235 ; 

236 ; 
237 
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2.0 VALUE DEFINITIONS 

FOLLOWING A FIELD DEFINITION, SYMBOLS MAY BE CREATED IN THAT FIELD TO CORRESPOND 
TO VALUES OF THE FIELD. THE FORM IS: 

SYMBOL=N 

IN OCTAL, 



"N" IS, 



THE VALUE OF SYMBOL WHEN USED IN THE FIELD. 



3.0 LABEL DEFINITIONS 

A MICRO INSTRUCTION MAY BE LABELLED BY A SYMBOL FOLLOWED BY COLON PRECEDING THE 
MICROINSTRUCTION DEFINITION. THE ADDRESS OF THE MICROINSTRUCTION BECOMES THE 
VALUE OF THE SYMBOL IN THE FIELD NAMED "J". EXAMPLE: 

FOO: J/FOO 

THIS IS A MICROINSTRUCTION WHOSE "J" FIELD (JUMP ADDRESS) CONTAINS THE VALUE 

"FOO". IT ALSO DEFINES THE SYMBOL "FOO" TO BE THE ADDRESS OF ITSELF. 

THEREFORE, IF EXECUTED BY THE MICROPROCESSOR, IT WOULD LOOP ON ITSELF. 



4.0 COMMENTS 

A SEMICOLON ANYWHERE ON A LINE CAUSES THE REST OF THE LINE TO BE IGNORED BY THE 
ASSEMBLER. THIS TEXT IS AN EXAMPLE OF COMMENTS. 



5.0 MICROINSTRUCTION DEFINITION 

A WORD OF MICROCODE IS DEFINED BY SPECIFYING A FIELD NAME, FOLLOWED BY SLASH 
(/), FOLLOWED BY A VALUE. THE VALUE MAY BE A SYMBOL DEFINED FOR THAT FIELD, AN 
OCTAL DIGIT STRING, OR A DECIMAL DIGIT STRING (DISTINGUISHED BY THE FACT THAT IT 
CONTAINS "8" AND/OR "9" AND/OR IS TERMINATED BY A PERIOD). SEVERAL FIELDS MAY 
BE SPECIFIED IN ONE MICROINSTRUCTION BY SEPARATING FIELD/VALUE SPECIFICATIONS 
WITH COMMAS. EXAMPLE: 

AD/ZERO , RAMADR/ AC*# , ACALU/AC+N , ACN/ 1 , DBUS/DP 
6.0 CONTINUATION 

THE DEFINITION OF A MICROINSTRUCTION MAY CONTINUED ONTO TWO OR MORE LINES BY 
BREAKING IT AFTER ANY COMMA. IN OTHER WORDS, IF THE LAST NON-BLANK, NON-COMMENT 
CHARACTER ON A LINE IS A COMMA, THE INSTRUCTION SPECIFICATION IS CONTINUED ON 



n 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 31(254) KS10 MICROCODE V124, 27-JUL-84 Page 10 

KS10.MIC[ 10, 1 141 ] 07:10 27-JULY-1984 HOW TO READ THE MICROCODE 



288 ; THE FOLLOWING LINE. EXAMPLE: 

289 ; READ [AR], ; LOOK AT EFFECTIVE ADDRESS 

290 ; SKIP DP18, ;SEE IF RIGHT OR LEFT SHIFT 

291 ; SC_SHIFT-1, ; PUT NUMBER OF PLACE TO 

292 ; . ; SHIFT IN SC 

293 ; LOAD FE, ; AND IN FE 

294 ; INST DISP ; GO DO THE SHIFT 

295 ; 

296 ; 

297 ; 

298 ; 7.0 MACROS 

299 ; 

300 ; A MACRO IS A SYMBOL WHOSE VALUE IS ONE OR MORE FIELD/VALUE SPECIFICATIONS AND/OR 

301 ; MACROS. A MACRO DEFINITION IS A LINE CONTAINING THE MACRO NAME FOLLOWED BY A 

302 ; QUOTED STRING WHICH IS THE VALUE OF THE MACRO. EXAMPLE: 

303 ; 

304 ; LOAD VMA "MEM/ 1 , LDVMA/1 
305 

306 ; THE APPEARANCE OF A MACRO IN A MICROINSTRUCTION DEFINITION IS EQUIVALENT TO THE 

307 ; APPEARANCE OF ITS VALUE. 

308 ; 

309 ; MACRO MAY HAVE PARAMETERS ENCLOSED IN [] . FOR EXAMPLE, 

310 ; 

311 ; []_[] "AD/A, A/@2,DEST/AD,B/@1 " 

312 ; 

313 ; THE @1 GETS REPLACED BY WHAT IS WRITTEN IN THE FIRST SET OF [] AND @2 IS 

314 ; REPLACED BY WHAT IS WRITTEN IN THE SECOND SET OF [ ] . THUS 

315 ; 

316 ; [AR]_JARX] 

317 ; 

318 ; HAS THE SAME EFFECT AS SAYING 
319 

320 ; AD/A, A/ARX , DEST/AD , B/AR 

321 ; 

322 ; 

323 ; SEE DESCRIPTION OF RULES FOR MACRO NAMES. 

324 ; 

325 ; 8.0 PSEUDO OPS 

326 ; 

327 ; THE MICRO ASSEMBLER HAS 13 PSEUDO-OPERATORS: 
328 

329 \ . DCODE AND .UCODE SELECT THE RAM INTO WHICH SUBSEQUENT MICROCODE WILL BE 

330 ; LOADED, AND THEREFORE THE, FIELD DEFINITIONS AND MACROS WHICH ARE 

331 ; MEANINGFUL IN SUBSEQUENT MICROCODE 

332 ; .TITLE DEFINES A STRING OF TEXT TO APPEAR IN THE PAGE HEADER, AND 

333 ; .TOC DEFINES AN ENTRY FOR THE TABLE OF CONTENTS AT THE BEGINNING. 

334 ; .SET DEFINES THE VALUE OF A CONDITIONAL ASSEMBLY PARAMETER, 

335 ; .CHANGE REDEFINES A CONDITIONAL ASSEMBLY PARAMETER, 

336 ; .DEFAULT ASSIGNS A VALUE TO AN UNDEFINED PARAMETER. 

337 ; .IF ENABLES ASSEMBLY IF THE VALUE OF THE PARAMETER IS NOT ZERO, 

338 ; . IFNOT ENABLES ASSEMBLY IF THE PARAMETER VALUE IS ZERO, AND 

339 ; .ENDIF RE-ENABLES ASSEMBLY IF SUPPRESSED BY THE PARAMETER NAMED. 

340 ; .NOBIN TURNS OFF THE BINARY A GETS RID OF THE SPACE USED TO LIST IT, 

341 ; .BIN TURN BINARY BACK ON AGAIN. 

342 ; .WIDTH CONTROLS THE NUMBER OF BITS IN THE CRAM 
343 
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344 ; 9.0 LOCATION CONTROL 

345 ; 

346 ; A MICROINSTRUCTION "LABELLED" WITH A NUMBER IS ASSIGNED TO THAT ADDRESS. 

347 ; 

348 ; THE CHARACTER " = " AT THE BEGINNING OF A LINE, FOLLOWED BY A STRING OF O'S, 1'S, 

349 ; AND/OR *'S, SPECIFIES A CONSTRAINT ON THE ADDRESS OF FOLLOWING 

350 ; MICROINSTRUCTIONS. THE NUMBER OF CHARACTERS IN THE CONSTRAINT STRING (EXCLUDING 

351 ; THE "=" ) IS THE NUMBER OF LOW-ORDER BITS CONSTRAINED IN THE ADDRESS. THE 

352 ; MICROASSEMBLER ATTEMPTS TO FIND AN UNUSED LOCATION WHOSE ADDRESS HAS O BITS IN 

353 ; THE POSITIONS CORRESPONDING TO O'S IN THE CONSTRAINT STRING AND 1 BITS WHERE THE 

354 ; CONSTRAINT HAS 1'S. ASTERISKS DENOTE "DON'T CARE" BIT POSITIONS. 

355 ; 

356 ; IF THERE ARE ANY O'S IN THE CONSTRAINT STRING, THE CONSTRAINT IMPLIES A BLOCK OF 

357 ; <2**N> MICROWORDS, WHERE N IS THE NUMBER OF O'S IN THE STRING. ALL LOCATIONS IN 

358 ; THE BLOCK WILL HAVE 1'S IN THE ADDRESS BITS CORRESPONDING TO 1'S IN THE STRING, 

359 ; AND BIT POSITIONS DENOTED BY *'S WILL BE THE SAME IN ALL LOCATIONS OF THE BLOCK. 

360 ; 

361 ; IN SUCH A CONSTRAINT BLOCK, THE DEFAULT ADDRESS PROGRESSION IS COUNTING IN THE 

362 ; "O" POSITIONS OF THE CONSTRAINT STRING, BUT A NEW CONSTRAINT STRING OCCURING 

363 ; WITHIN A BLOCK MAY FORCE SKIPPING OVER SOME LOCATIONS OF THE BLOCK. WITHIN A 

364 ; BLOCK, A NEW CONSTRAINT STRING DOES NOT CHANGE THE PATTERN OF DEFAULT ADDRESS 

365 ; PROGRESSION, IT MERELY ADVANCES THE LOCATION COUNTER OVER THOSE LOCATIONS. THE 

366 ; MICROASSEMBLER WILL LATER FILL THEM IN. 

367 ; 

368 ; A NULL CONSTRAINT STRING (•«=" FOLLOWED BY ANYTHING BUT "O", "1", OR "*") SERVES 

369 ; TO TERMINATE A CONSTRAINT BLOCK. EXAMPLES: 

370 ; 

371 ; =0 

372 ; 

373 ; THIS SPECIFIES THAT THE LOW-ORDER ADDRESS BIT MUST BE ZERO- - THE MICROASSEMBLER 

374 ; FINDS AN EVEN-ODD PAIR OF LOCATIONS, AND PUTS THE NEXT TWO MICROINSTRUCTIONS 

375 ; INTO THEM. 

376 ; 

377 ; =11 

378 ; THIS SPECIFIES THAT THE TWO LOW-ORDER BITS OF THE ADDRESS MUST BOTH BE ONES. 

379 ; SINCE THERE ARE NO O'S IN THIS CONSTRAINT, THE ASSEMBLER FINDS ONLY ONE LOCATION 

380 ; MEETING THE CONSTRAINT. 

381 ; 

382 ; =0***** 

383 ; 

384 ; THIS SPECIFIES AN ADDRESS IN WHICH THE "40" BIT IS ZERO. DUE TO THE 

385 ; IMPLEMENTATION OF THIS FEATURE IN THE ASSEMBLER, THE DEFAULT ADDRESS PROGRESSION 

386 ; APPLIES ONLY TO THE LOW-ORDER 5 BITS, SO THIS CONSTRAINT FINDS ONE WORD IN WHICH 

387 ; THE "40" BIT IS ZERO, AND DOES NOT ATTEMPT TO FIND ONE IN WHICH THAT BIT IS A 

388 ; ONE. THIS LIMITATION HAS BEEN CHANGED WITH NEWER ASSEMBLER VERSIONS. HOWEVER 

389 ; NONE OF THE LOCATIONS IN THE MICROCODE REQUIRE ANYTHING BUT THE CONSTRAINT 

390 ; MENTIONED ABOVE. 
391 
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392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
;416 
;417 
418 
419 
420 
421 
422 
423 
;424 
;425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 



.TOC "CONDITIONAL ASSEMBLY DEFINITIONS 
. DEFAULT/SIM=0 



. DEFAULT/FULL= 1 
. DEFAULT/ INHCST=0 
. DEFAULT/NOCST=0 
. DEFAULT/UBABLT=0 
. DEFAULT/KI PAGE= 1 
. DEFAULT/KLPAGE= 1 



;0=RUN ON REAL HARDWARE 
;1=RUN UNDER SIMULATOR 

;0=INCLUDE ONLY BASIC INSTRUCTIONS 
; 1=INCLUDE FULL INSTRUCTION SET 

;0=N0 CODE TO INHIBIT CST UPDATE IF CSB=0 
;1=D0N'T UPDATE CST IF CSB=0 

;0=INCLUDE SUPPORT FOR WRITING THE CST 
; t=COMPLETELY DESUPPORT CST (FOR TOPS-10) 

;0=N0 UBABLT SUPPORT 

;1=SUPP0RT UBA STYLE BLT INSTRUCTIONS. 

;0=D0N'T SUPPORT KI PAGING 
;1=D0 

;0=DON'T SUPPORT KL PAGING 
; 1=D0 

; THESE INSTRUCTIONS 



. I F/UBABLT 

. I F/KLPAGE 

. CHANGE/KIPAGE=0 
. ENDI F/KLPAGE 

. IF/KIPAGE ; ALLOW ONLY ONE PAGING MODE 

. CHANGE/KLPAGE=0 
. ENDI F/KIPAGE 

. ENDI F /UBABLT ; OTHERWISE, MAY HAVE EITHER OR BOTH 

. IF/NOCST 

. CHANGE/INHCST=0 
. ENDI F/NOCST 



. DEFAULT/NONSTD=0 
.WIDTH/ 108 



; 0=STANDARD MICROCODE 

; 1 =NON-STANDARD MICROCODE 

; ONLY FIELDS BETWEEN BITS O AND 107 EVER 
; GET LOADED INTO THE CRAM. OTHER FIELDS 
; ARE USED FOR DEFAULTING PROCESS. 



.REGION/0, 1377/2000,3777/1400, 1777 

; TRY AND KEEP STUFF OUT OF DROM SPACE 
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438 


TOC 


439 




440 




44 1 


;0: 


442 




443 


• 1 : 


444 




445 


• 2 : 


446 




447 


* 3 : 


448 




449 


■ 4 ; 






451 


* 5 * 


/CO 




453 


6 : 


454 




455 


7 : 


456 




457 


10 : 


458 




459 


1 1 : 


460 




46 1 


1 2 : 


462 




463 


1 3 : 


464 




465 ; 


14 : 


466 ; 




467 ; 


15: 


468 ; 




469 ; 


16: 


470 ; 




471 ; 


17: 


472 ; 




473 





"2901 REGISTER USAGE' 



MAG (ONES IN BITS 1-36, REST ZERO) 
PC (ADDRESS OF CURRENT INSTRUCTION + 1) 
HR (CURRENT INSTRUCTION) 
AR (TEMP -- MEM OP AT INST START) 
ARX (TEMP LOW ORDER HALF OF DOUBLE PREC) 
BR (TEMP) 

BRX (TEMP LOW ORDER HALF OF DOUBLE PREC BR ! BRX ) 
ONE (THE CONSTANT 1) 
EBR (EXEC BASE REGISTER) 
UBR (USER BASE REGISTER) 
MASK (ONES IN BITS 0-35, ZERO IN -1, -2, 36 AND 37) 
FLG (FLAG BITS) ! PAGE FAIL CODE 

PI (PI SYSTEM STATUS REGISTER [RDPI]) 
XWD1 (1 IN EACH HALF WORD) 
TO (TEMP) 
T1 (TEMP) 



f 



T10KI .MCR[ 10, 
KS10.MICC 10, 1 



474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 



1141] 
141 ] 

.TOC 



U 1561, 
[--] 
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1500,2551 ,0303,0274,4463,7701 ,4200,0001 ,0001 



3633 
3634 
3635 
3636 



1561 : 
SUB: 



[AR]_AC-[AR] , 
AD FLAGS, 3T, 
EXIT 



[][] 



! ! 
! ! ! 
! 



! ! 



! 
! 

! 

!+- 
! 

+ - - 



[-][][-][] 



! 



["--] 
l 

+ 



n (MAGIC NUMBER) 

+ MULTI PREC, MULTI SHIFT, CALL (4S, 2S, 1S) 

+ FM WRITE , MEM, DIVIDE (4S, 2S, 1S) 

CRY38 , LOAD SC. LOAD FE (4S, 2S, 1S) 

T 

SKIP 

DISP 

SPEC 

+ CLOCKS & PARITY (CLKR, GENR, CHKR , CLKL , GENL , CHKL) 

DBM 

- DBUS 

RAM ADDRESS 

B 



A 

DEST 

RSRC 

LSRC 

ALU 

J 



AD 



LOCATION OF THIS MICRO WORD 
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522 


.TOC 


"MICROCODE 


523 






524 


J/=<0: 


1 1>+ 


K O K 






KOC 






DZ I 


;ALU FUNCTIONS 


COR 






KOQ 

Dzy 


; NOTE : 


THE AD FIELD 


DoU 


; 2901 


ALU FUNCTION 


Do I 


; THE 


LEFT HALF. NO 


coo 
Doz 


; THE 


LEFT HALF. 


533 


AD/=<12: 17>D,44 


Do4 




A+Q=00 


535 




A+B=01 


536 




0+0=02 


537 




0+B=03 


538 




0+A=04 


539 




D+A=05 


540 




D+Q=06 


54 1 




O+U-U / 


542 




/-\ _ A _ OC - 4 A 






D A O K — 4 A 

fc> A . zb - 1 1 






w . ZD — 1 


K /I K 




D _ OK- 

D . ZD- 1 O 


a a a 




A _ OK - 4/1 

A . 2D- 1 4 


D4 / 




a _ n - OK- ic 
A U . ZD- ID 


D4o 




n-n- ok- 1 a 

W LJ . Z Zj — 1 O 


Kvf Q 




-D-. 25=17 


ccn 
DOU 




A-0-. 25=20 


EC 4 

DO 1 




A-B-. 25=21 


ceo 




-Q-. 25=22 


CRO 

DDo 




-B- .25=23 


DD4 




-A- .25=24 


555 




D-A-. 25=25 


556 




D-Q- . 25=26 






D-. 25=27 


558 




A. OR. 0=30 






A.0R.B=31 


CCA 




Q = 32 ' 


561 




B = 33 


562 




A = 34 


563 




D.OR. A=35 


564 




D.OR. 0=36 


565 




D = 37 


566 




A . AND . Q=40 


567 




A . AND . B=4 1 


568 







>S DATAPATH CHIP" 
;CRA1 

; NEXT MICROCODE ADDRESS 



IS A 2 DIGIT FIELD. THE LEFT DIGIT IS THE 
THE RIGHT DIGIT IS THE 2901 SRC CODE FOR 
JMALY THE RIGHT HALF SRC CODE IS THE SAME AS 

;DPE1 & DPE2 
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569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 



; MORE ALU FUNCTIONS 

ZER0=42 
; ZER0=43 
; ZER0=44 

D. AND. A=45 

D . AND . Q=46 
; ZER0=47 

.NOT. A. AND.Q=50 

.NOT. A. AND.B=51 

Q = 52 

B = 53 

A = 54 

.NOT.D. AND. A = 55 

. NOT. D. AND. 0=56 

ZER0=57 

A.X0R.0=6O 

A.X0R.B=61 

Q = 62 

B = 63 

A = 64 

D.X0R.A=65 
D.X0R.0=66 
D = 67 

A.EQV.Q=70 

A.E0V.B=71 

.N0T.Q=72 

.N0T.B=73 

.N0T.A=74 

D.EQV.A=75 

D.E0V.0=76 

.N0T.D=77 

THIS FIELD IS THE RIGHTMOST 3 BITS OF THE 
AD FIELD. IT IS USED ONLY TO DEFAULT THE RSRC 
FIELD. 

LSRC/=<15: 17> ;DPE1 

THIS IS THE SOURCE FOR THE RIGHT HALF OF THE 
DATA PATH. IT LETS US MAKE THE RIGHT AND LEFT 
HALF WORDS DO SLIGHTLY DIFFERENT THINGS. 



610 


RSRC/=<18:20>F,LSRC 


DPE2 


611 


AQ=0 


A Q 


612 


AB=1 


A B 


613 


00 = 2 


Q 


614 


0B = 3 


B 


615 


0A = 4 


A 


616 


DA = 5 


D A 


617 


D0=6 


D 


618 


D0=7 


D 



619 
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620 DESTINATION CONTROL 

621 ;SEE DPE 1 AND DPE2 (2'S WEIGHT IS INVERTED ON DPE5) 

622 DEST/=<21 :23>D,3 ;DPE1 & DPE2 

623 A=0 ;A REG IS CHIP OUTPUT, AD IS WRITTEN 

624 ; INTO REG FILE 

625 AD= 1 ; REG FILE GETS AD 

626 AD=2 ; REG FILE IS NOT LOADED 

627 PASS=3 ; AD OUTPUT IS CHIP OUTPUT 

628 ; AND REG FILE LEFT ALONE 

629 Q_0*2=4 ;ALSO REG FILE GETS AD*2 

630 AD*2=5 ; AND IS LEFT ALONE 

631 Q_Q*. 5=6 ;ALSO REG FILE GETS AD*. 5 

632 AD*. 5=7 ; AND Q IS LEFT ALONE 
633 

634 ; <24:25> ; UNUSED 

635 

636 A/=<26:29> ;DPE1 & DPE2 

637 MAG=0 

638 PC=1 

639 HR=2 

640 AR=3 

641 ARX=4 

642 BR=5 

643 BRX=6 

644 0NE=7 

645 EBR=10 

646 UBR=11 

647 MASK=12 

648 FLG=13 

649 PI = 14 

650 XWD1=15 

651 T0=16 

652 T1=17 
653 

654 ; <30:31> ; UNUSED 

655 

656 B/=<32:35>D,0 ;DPE1 & DPE2 

657 MAG=0 

658 PC= 1 

659 HR=2 

660 AR=3 

661 ARX=4 

662 BR=5 

663 BRX=6 

664 0NE=7 

665 EBR=10 

666 UBR=11 

667 MASK=12 

668 FLG=13 

669 PI= 14 

670 XWD1=15 

671 T0= 16 

672 T1=17 
673 



n 
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674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
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"MICROCODE FIELDS -- RAM FILE ADDRESS AND D-BUS" 



RAMADR/=<36:38>D, 
AC#=0 
AC*#=1 
XR# = 2 
VMA=4 
RAM =6 
# = 7 

; <39:39> 



DPE6 

AC NUMBER 

AC -FN. # 

INDEX REGISTER 

VIRTUAL MEMORY REFERENCE 

VMA SUPPLIES 10-BIT RAM ADDRESS 

ABSOLUTE RAM FILE REFERENCE 



: LEFT HALF ON DPE3 AND RIGHT HALF ON DPE4 



DBUS/=<40:41>D, 1 

PC FLAGS=0 
PI NEW=0 

; VMA=0 
DP=1 
RAM = 2 
DBM=3 



DPE3 & DPE4 

PC FLAGS IN LEFT HALF 

NEW PI LEVEL IN BITS 19-21 

VMA IN BITS 27-35 

DATA PATH 

CACHE, AC'S AND WORKSPACE 
DBM MIXER 



;LEFT HALF ON DPMI AND RIGHT HALF ON DPM2 



DBM/=<42:44>D,7 

SCAD DIAG=0 
PF DISP=0 
APR FLAGS=0 
BYTES= 1 
EXP = 2 
DP = 3 

DP SWAP=4 
VMA = 5 
MEM = 6 

# = 7 



-21 



DPMI & DPM2 
(LH) SCAD DIAGNOSTIC 
PAGE FAIL DISP IN BITS 18- 
APR FLAGS IN BITS 22-35 
5 COPIES OF SCAD 1-7 
LH=EXPONENT , RH=TIME FRACTION 
DATA PATH 
DATA PATH SWAPPED 
VMA FLAGS, , VMA 
MEMORY BUFFER 

NUMBER FIELD IN BOTH HALVES 
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708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
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AD PARITY 0K/=<108>D,0 



;**NOT STORED IN CRAM** 

;THIS BIT IS A 1 IF THE ALU IS DOING 

SOMETHING WHICH DOES NOT INVALIDATE 
PARITY. IT DOES NOT APPEAR IN THE 
REAL MACHINE. WE JUST USE IT TO SET 
THE DEFAULT FOR GENR & GENL 



CLKL/=<45:45>D, 1 



;DPE5 

; CLOCK THE LEFT HALF OF THE MACHINE 
GENL/=<46 : 46>F , AD PARITY OK ;DPE4 FROM CRM2 PARITY EN LEFT H 

; STORE PARITY FOR 2901 LEFT 
CHKL/=<47:47> ;DPE4 FROM CRM2 PARITY CHK LEFT H 

; CHECK LEFT HALF DBUS PARITY 

CLKR/=<48:48>D, 1 ;DPE5 

; CLOCK THE RIGHT HALF OF THE MACHINE 
GENR/ =<49 : 49>F , AD PARITY OK ;DPE4 FROM CRM2 PARITY EN RIGHT H 

; STORE PARITY FOR 2901 RIGHT 
;DPE4 FROM CRM2 PARITY CHK RIGHT H 
;CHECK RIGHT HALF DBUS PARITY 



CHKR/=<50:50> 
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731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 
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"MICROCODE FIELDS SPEC" 



THE FOLLOWING SPECIAL FUNCTION ARE DECODED ON DPE 1 , DPE5, AND DPMA: 



!S! 
! P ! 
!E! 
! C ! 


EFFECT 

l™» K 1 pi IT TT 

ON SHIFT 
PATHS 
(SEE DPE 1 ) 


! CRA6 SPEC 
! EN 40 
! E102 ON DPE5 


! CRA6 SPEC 
! EN 20 
! E101 ON DPE5 
! E4 1 1 ON DPMA 


! CRA6 SPEC 
! EN 10 
! E410 ON DPMA 
! E113 ON CRA2 


! ! 


NORMAL 


! CRY 18 INH 


! PREVIOUS 


! # 






! IK LUWU 


I yd i nAn 

I AK LUAU 


1 PI D 4 MCCp 

! LrLK 1 l»IJL>J 


!2! 


ONES 


! <SPARE> 


! <SPARE> 


! CLR 10 LATCH 


!3! 


ROT 


! PI LOAD 


! APR FLAGS 


! CLR 10 BUSY 


!4 ! 


ASHC 


! ASH TEST 


! SET SWEEP 


! PAGE WRITE 


!5! 


LSHC 


! EXP TEST 


! APR EN 


! NICOND 


!6! 


DIV 


! PC FLAGS 


! PXCT OFF 


! PXCT EN 


!7! 


ROTC 


! AC BLOCKS EN 


! MEM CLR 


! MEM WAIT 



THE DPM BOARD USES THE SPEC FIELD TO CONTROL THE 
DBM MIXER, AS FOLLOWS: 



s 






p 


! ACTION WHEN DBM 


E 


! SELECTS DP 


C 


! GET DP BITS ! 


GET SCAD 1-7 





! ALL ! 


NONE 


1 


! 7-35 ! 


0-6 


2 


!0-6 AND 14-35 ! 


7-13 


3 


!0-13 AND 21-35! 


14-20 


4 


!0-20 AND 28-35! 


21-27 


5 


! 0-27 AND 35 ! 


28-34 


6 


! SAME AS 


ZERO 


7 


! SAME AS 


ZERO 
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704 


; THE SPEC FIELD IS DEFINED AS A 6-BIT FIELD. THE TOP 3 BITS 


70c 


; ARE SPEC SEL A, SPEC SEL B, AND SPEC SEL C. THE LOW 3 BITS ARE 


*7QC 


; THE SELECT CODE. 




707 

/Of 






7BQ 


SPEC/=<51 :56>D,0 


' Urt 1 Qf- UrtD « UrWl & UrIvIA 


789 


#=10 


DECODE # BITS 


7QA 


CLRCLK= 1 1 


y-i 1 CAD -4MC M T POMn CI AA 


79 1 


CLR 10 LATCH=12 


CLEAR IU LA 1 CH 




CLR 10 BUSY=13 


i r* a n t r\ rji ir \/ 

.CLEAR 10 BUSY 




LDPAGE= 14 


IJDTTC r*> A CT TADI tT 

WRITE PAGE lAbSLh 


794 


NICOND= 15 


DOING NICUNU UlbrAH/M 


/ yo 


LDPXCT= 16 


LOAD PXC 1 FLAGb 


7QC 

/ 30 


WAIT= 1 7 


iirii UA TT 

mbm WA 1 1 


7Q7 

/ y / 


PREV=20 


rUKLrt rKtvlUUo LUIMI tAI 


7QQ 

/ y<3 


L0ADXR=2 1 


I n A n YD M I ICCC DYPT PTPI V\ Tfl QFI PPT 
LUAU AK # , Uoto r AC I rltLU IU oCLCL I 


7QQ 




pnoDCPT a r* 1 pi nri/ 
uUKKtt 1 AC tSLUUfN 




APR rLAvab-^o 


1 nAn ADD PI Af5Q 
LUAU Ar K r L-Mvao 


on 4 

oU 1 


CLRCSH-24 


r*i PAD r ATUC 


on*) 


APR EN=25 


CCT ADD PMARI PC 

bt 1 Ar K tl\lADt_Lo 


ouo 


mpmpi d — 07 
|V|fclV|L*LK — z / 


CI PAD PAGF FAULT CONDITION 




p 1, 1 r r n _ ^ 

5WEEP=o4 


CPT CUJPPD 

bb 1 bWL Lr 


805 


PXCT 0FF=36 


TURN OFF THE EFFECT OF PXCT 


one 


INHCRY18=40 


INHIBIT CARRY INTO LEFT HALF 


OA7 


L0ADIR=41 


LOAD THE IR 


QAO 
Ov/O 


LDPI=43 


LOAD PI SYSTEM 




ASH0V=44 


TEST RESULT OF ASH 


810 


EXPTST=45 


TEST RESULT OF FLOATING POINT 


O 1 1 


FLAGS=46 


CHANGE PC FLAGS 


812 


LDACBLK=47 


LOAD AC BLOCK NUMBERS 


813 


LDINST=61 


LOAD INSTRUCTION 


814 






815 


; THE SPEC FIELD IS REDEFINED WHEN USED FOR BYTE MODE STUFF 


816 


BYTE/=<54:56> ;DPM1 (SPEC SEL) 


1 / 


BYTE 1 = 1 




O 1 O 


BYTE2=2 




O 1 I? 


BYTE3=3 




OZVJ 


BYTE4=4 




0<£. 1 


BYTE5=5 










O O *3 


• THE SPEC FIELD IS REDEFINED WHEN USED TO CONTROL SHIFT PATHS 


Q04 

o^*f 


SHSTYLE/=<54:56> 


DPE1 (SPEC SEL) 


825 


N0RM=O 


2 40-BIT REGISTERS 


826 


ZER0=1 


SHIFT ZERO INTO 36 BITS (ASH TOP 2901) 


827 


0NES=2 


SHIFT IN ONES 


828 


R0T = 3 


ROTATE 


829 


ASHC=4 


ASHC 


830 


LSHC=5 


LSHC 


831 


DIV=6 


SPECIAL DIVIDE 


832 


R0TC=7 


ROTATE DOUBLE 


833 
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834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 



.TOC 



"MICROCODE FIELDS -- DISPATCH" 



D ! 


CRA1 


! CRA1 ! 


DPE'A 


I ! 


DISP 


! DISP ! 


DISP 


S ! 


10 


! 20 ! 


40 


P ! 




{ ! 




! 


DIAG ADR 


! DIAG ADR ! 





1 ! 


RETURN 


! RETURN ! 


DP 18-21 


2 ! 


MULTIPLY 


! J ! 


J 


3 ! 


PACac. FAIL 


! AKfcAU ! 


ADC An 1 
ARcAD ! 


4 ! 


NICOND 


! NOT USABLE ! 


NORM 


5 ! 


BYTE 


! NOT USABLE ! 


DP 32-35 


6 ! 


EA MODE 


! NOT USABLE ! 


DROM A 


7 ! 


SCAD 


! NOT USABLE ! 


DROM B 



NOTE: 



DISP EN 40 S^DISP EN 10 ONLY CONTROL THE LOW 4 BITS OF THE 
JUMP ADDRESS. DISP EN 20 ONLY CONTROLS THE HI 7 BITS. TO DO 
SOMETHING TO ALL 11 BITS BOTH 20 & 40 OR 20 & 10 MUST BE ENABLED. 



DISP/=<57:62>D,70 
C0NS0LE=OO 
DR0M=12 
AREAD= 13 
DP LEFT=3 1 
N0RM=34 
DP = 35 
ADISP=36 
BDISP=37 
RETURN=4 1 
MUL=62 

PAGE FAIL=63 

NIC0ND=64 

BYTE=65 

EAM0DE=66 

SCAD0=67 



CRA1 & DPEA 

CONSOLE DISPATCH 

DROM 

AREAD 

DP 18-21 

NORMALIZE 

DP 32-35 

DROM A FIELD 

DROM B FIELD 

RETURN 

MULTIPLY 

PAGE FAIL 

NEXT INSTRUCTION DISPATCH 
BYTE SIZE AND POSITION 
EFFECTIVE ADDRESS MODE 
J!2 IF SCAD BIT O = 1 
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878 .TOC "MICROCODE FIELDS SKIP" 

879 ; ! = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =: = = =: = = = = = = = = = = = = = = ! 

880 ; ! S ! CRA2 ! DPEA ! DPEA ! 

881 ; ! K ! SKIP ! SKIP ! SKIP ! 

882 ; ! I ! 10 ! 20 ! 40 ! 

883 ; ! P ! ! ! ! 

884 ; != = = = = = = = = = = = = = = = = =: = = = = = = = = = = = = = =: = = = =: = = = = = = = = = = = = = = = = = = =! 

885 ; ! ! ! O ! ! 

886 ; ! ! 

887 ; ! 1 ! TRAP CYCLE ! CRY 02 ! CARRY OUT ! 

888 ; ! ! 

889 ; ! 2 ! AD=0 ! ADL SIGN ! ADL=0 ! 

890 ; ! ! 

891 ; ! 3 ! SC SIGN ! ADR SIGN ! ADR=0 ! 

892 ; ! ! 

893 ; ! 4 ! EXECUTE ! USER IOT ! -USER ! 

894 ; ! ! 

895 ; ! 5 ! -BUS 10 BUSY ! UFCL SKIP ! FPD FLAG ! 

896 ; ! . ! 

897 ; ! 6 ! -CONTINUE ! CRY 01 ! AC # IS ZERO ! 

898 ; ! ! 

899 ; ! 7 ! -1 MSEC ! ' TXXX ,! INTERRUPT REQ ! 

900 ; != = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ^ = = = = = = = = = = = == = = = = = ==! 

901 \ 

902 SKIP/=<63:68>D,70 ;CRA2 & DPEA 

903 I0LGL=O4 ;(. NOT . USER )!( USER IOT )!( CONSOLE EXECUTE MODE) 

904 LLE=12 ; AD LEFT .LE. O 

905 CRY0=31 ; AD CRY -2 

906 ADLE0O=32 ; ADDER LEFT = O 

907 ADREQ0=33 ; ADDER RIGHT = O 

908 KERNEL=34 ;.NOT. USER 

909 FPD=35 ; FIRST PART DONE 

910 AC0=36 ;AC NUMBER IS ZERO 

911 INT=37 INTERRUPT REQUEST 

912 LE=42 ; (AD SIGN) ! (AD.EQ.O) 

913 CRY2=51 ; AD CRY 02 

914 DPO=52 ; AD SIGN 

915 DP18=53 ; AD BIT 18 

916 I0T=54 ;USER IOT 

917 JFCL=55 ;JFCL SKIP 

918 CRY1=56 ; AD CRY 1 

919 TXXX=57 ; TEST INSTRUCTION SHOULD SKIP 

920 TRAP CYCLE=61 ;THIS INSTRUCTION IS THE RESULT OF A 

921 ; TRAP 1 , 2, OR 3 

922 ADE0O=62 ;AD.EO-0 

923 SC=63 ;SC SIGN BIT 

924 EXECUTE=64 ; CONSOLE EXECUTE MODE 

925 -10 BUSY=65 ; . NOT . I/O LATCH 

926 -C0NTINUE=66 ;.NOT. CONTINUE 

927 -1 MS=67 ;.NOT. 1 MS. TIMER 
928 



n 
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929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 



. TOC 



"MICROCODE FIELDS TIME CONTROL" 



DT/=<109 : 1 1 1>D,0 



2T=0 
3T=1 
4T = 2 
5T = 3 



T/=<69:71>F,DT 



2T=0 
3T=1 
4T = 2 
5T = 3 



**NOT STORED IN CRAM** 
DEFAULT TIME FIELD (USED IN MACROS) 
CAN BE OVERRIDDEN IN MACRO CALL 



CSL5 (E601) 

CLOCK TICKS MINUS TWO REQUIRED TO 

DO A MICRO INSTRUCTION 
TWO TICKS 
THREE TICKS 
FOUR TICKS 
FIVE TICKS 
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949 


.T0C "MICROCODE FIELDS -- RANDOM CONTROL BITS" 


950 






OK 4 
570 i 




■ DPE5 


952 






953 


LUAUou/ — <■ / o-> 








, LUAU 1 nC o I Cr \->UUlN 1 UK r KUm 1 nt ouAU 




LUAUrt/ — ^ / *r 


, Ur m*f 






; LUAU 1 nt rt Ktoio 1 tK r KUfvl trie otAU 


QC7 


r mWK 1 1 t/ -</D> 








lilDTTC TUIC DAM CTI C 
WKJLft I nt KAM rlLt. 


QCQ 


mtm/ -< / o> 


UrmD \t.xDlZ) at UrtO \c.Z\JD) 


QCA 

you 




ctadt ( nD rniWDi ctetI a MCMnDv no t /n rvn c i iMn cr d 
o 1 AK 1 vUK uUIVIrLt 1 t / A MfclviUKY UK JL/U tiLLt UlNUfcK 


QC 4 
SO 1 




rflMTDDI nC TUIC Ml IMD C D CTCI n 

tUlNI KUL Ur 1 rit iMUIVitatK ritLU. 


SO/ 


DIVIDE/=<77> 


DPE5 


963 




THIS MICROINSTRUCTION IS DOING A DIVIDE 


964 


MULT I PREC/=<78> 


DPE5 


965 




MULTIPRECISION STEP IN DIVIDE, DFAD, DFSB 


966 


MULTI SHIFT/=<79> 


CSL5 (HAS NOTHING TO DO WITH DPE5 MULTI SHIFT) 


967 




FAST SHIFT 


968 


CALL/=<80> ■ 


CRA2 (STACK IS ON CRA3) 


969 




THIS IS A CALL 


970 
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.TOC "MICROCODE FIELDS -- NUMBER FIELD" 


972 






973 


; HERE IS THE GENERAL FIELD 


974 


#/=<90:107> 


MANY PLACES 


975 






976 


\ff REDEFINED WHEN USED AS SCAD CONTROL: 


977 


SCAD/=<90 : 92> ; DPM3 


978 


A*2=0 




979 


A.0R.B=1 




980 


A-B-1=2 




981 


A-B = 3 




982 


A+B = 4 




983 


A . AND . B=5 




984 


A- 1=6 




985 


A = 7 




986 


SCADA/=<93 : 95> ; DPM3 


987 


SC=0 




988 


S#=1 




989 


PTR44=2 ;44 AND BIT 6 (SEE DPM3 ) 


990 


BYTE 1 =3 




991 


BYTE2=4 




992 


BYTE3=5 




993 


BYTE4=6 




994 


BYTE5=7 




995 


SCADB/=<96:97> ;DPM3 


996 


FE=0 




997 


EXP=1 




998 


SHIFT=2 




999 


SIZE=3 




1000 


S#/=<98:107> ;DPM3 


1001 




I 


1002 


iff REDEFINED WHEN USED AS STATE REGISTER CONTROL: 


1003 


STATE/=<90: 107> 


NOT USED BY HARDWARE 


1004 


SIMPLE=0 


SIMPLE INSTRUCTIONS 


1005 


BLT= 1 


BLT IN PROGRESS 


1006 


MAP =400002 


MAP IN PROGRESS 


1007 


SRC = 3 


MOVE STRING SOURCE IN PROGRE 


1008 


DST = 4 


MOVE STRING FILL IN PROGRESS 


1009 


SRC+DST=5 


MOVE STRING DEST IN PROGRESS 


1010 


DSTF=6 


FILLING DEST 


101 1 


CVTDB=7 


CONVERT DEC TO BIN 


1012 


C0MP-DST=1O 


COMPARE DEST 


1013 


EDIT-SRC=1 1 


EDIT SOURCE 


1014 


EDIT-DST=12 


EDIT DEST 


1015 


EDIT-S+D=13 


BOTH SRC AND DST POINTERS 


1016 
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1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 



;# REDEFINED WHEN USED AS WORSPACE ADDRESS 



W0RK/=<98: 107> 

BADW0=160 

BADW1=161 

MUL=200 

DIV=201 

SV. VMA=210 

SV.AR=211 

SV. ARX=212 

SV.BR=213 

SV.BRX=214 

SBR=215 

CBR=216 

CSTM=217 

PUR=220 

ADJP=221 

ADJS=222 

ADJPTR=223 

ADJQ1=224 

ADJR2=225 

ADJBPW=226 

HSBADR=227 

APR=230 
; THE FOLLOWING WORDS ARE 

E0=240 

E1=241 

SLEN=242 

MSK=243 

FILL=244 

CMS=245 

FSIG=246 

BDH=247 
BDL=250 

; TIMER STUFF 

TIME0=300 
TIME1=301 
PERI0D-3O2 
TTG=303 



WORD O (BAD DATA FROM MEMORY) 
WORD 1 (BAD DATA FROM MEMORY) 



DPE6 

AC BLK 7 
AC BLK 7 
TEMP FOR MULTIPLY 
TEMP FOR DIVIDE 
SAVE VMA 
SAVE AR 
SAVE ARX 
SAVE BR 
SAVE BRX 

SPT BASE REGISTER 
CST BASE ADDRESS 
CST MASK 

PROCESS USE REGISTER 

"P" FOR ADJBP 

"S" FOR ADJBP 

BYTE POINTER FOR ADJBP 

TEMP FOR ADJBP 

TEMP FOR ADJBP 

(BYTES/WORD) FOR ADJBP 

ADDRESS OF HALT STATUS BLOCK 

APR ENABLES 

USED BY EXTEND INSTRUCTION 
ORIGINAL EFFECTIVE ADDRESS 
EFFECTIVE ADDRESS OF WORD AT EO 
SOURCE LENGTH 
BYTE MASK 
FILL BYTE 

SRC BYTE IN STRING COMPARE 
PLACE TO SAVE ARX WHILE STORING 

THE FLOAT CHAR 
BINARY BEING CONVERTED TO 

DECIMAL 



HIGH ORDER 36 BITS OF TIME 
LOW ORDER 36 BITS OF TIME 
INTERRUPT PERIOD 
TIME TO GO TO NEXT INTERRUPT 



f 

V, 
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1059 ;DDIV STUFF 

1060 ACO=314 

1061 AC1=315 

1062 AC2=316 

1063 AC3=317 

1064 DDIV SGN=320 

1065 DVSOR H=321 

1066 DVSOR L=322 

1067 ; POWERS OF TEN 

1068 DECL0=344 

1069 DECHI=373 
1070 

1071 YSAVE=422 

1072 PTA.E=423 

1073 PTA.U=424 

1074 TRAPPC=425 

1075 SV.AR1=426 
1076 



;L0W WORD 
; HIGH WORD 

Y OF LAST INDIRECT POINTER 

ADDRESS OF EXEC PAGE MAP (NOT PROCESS TABLE) 
ADDRESS OF USER PAGE MAP 
SAVED PC FROM TRAP CYCLE 
ANOTHER PLACE TO SAVE AR 
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1077 
1078 
1079 
1080 
1081 
1082 
10§3 
1084 
•1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1 100 
1101 
1 102 
1 103 
1 104 
1 10fc 
1 106 
1 107 
1108 
1 109 
1 1 10 
1111 
1 112 
1 1 13 
1 1 14 
1 1 15 



;# REDEFINED WHEN USED AS PC FLAG CONTROL (ALL ON DPE9) 
SET0V/=<90> 



SETF0V/=<91> 
SETNDV/=<92> 



CLRFPD/=<93> 
SETFPD/=<94> 
HOLD USER/=<95> 



; <96> 

TRAP2/=<97> 

TRAPi/=<98> 



LD PCU/=<99> 
; <100> 
; <101> 



; <102> 
; <103> 
JFCLFLG/=<104> 



LD FLAGS/=<105> 
; <106> 
ADFLGS/=<107> 



DPE9 

SET ARITHMETIC OVERFLOW 
SET FLOATING OVERFLOW 
SET NO DIVIDE 



CLEAR FIRST PART DONE 
SET FIRST PART DONE 
WHEN THIS BIT IS SET IT: 

1. PREVENTS SETTING USER IOT IN USER MODE 

2. PREVENTS CLEARING USER IN USER MODE 



SPARE 

SET TRAP 2 
SET TRAP 1 



LOAD PCU FROM USER 

SPARE 

SPARE 



SPARE 
SPARE 

DO A JFC'L INSTRUCTION 



; LOAD FLAGS FROM DP 
; UPDATE CARRY FLAGS 



Y 
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1 1 16 
1117 
1118 
1 1 19 
1 120 
1 121 
1 122 
1 123 
1 124 
1 125 
1 126 
1127 
1128 
1129 
1130 
1131 
1 132 
1 133 
1134 
1 135 
1 136 
1 137 
1 138 
1 139 
1 140 
1 141 
1 142 
1 143 
1144 
1 145 
1 146 
1 147 
1148 
1 149 
1 150 
1151 
1 152 
1153 
1154 
1 155 
1 156 
1 157 
1 158 



;# REDEFINED WHEN USED AS MEMORY CYCLE CONTROL 



FORCE USER/=<90> 
FORCE EXEC/=<91> 

FETCH/=<92> 



FORCE USER MODE REFERENCE 
FORCE EXEC MODE REFERENCE 

(DOES NOT WORK UNDER PXCT ) 
THIS IS AN INSTRUCTION FETCH 



READ CYCLE/=<93> 
WRITE TEST/=<94> 
WRITE CYCLE/=<95> 



SELECT A READ CYCLE 

PAGE FAILE IF NOT WRITTEN 

SELECT A MEMORY WRITE CYCLE 



; <96> 
DONT CACHE/=<97> 
PHYSICAL/=<98> 



SPARE BIT 

DO NOT LOOK IN CACHE 

DO NOT INVOKE PAGING HARDWARE 



PXCT/=<99: 101> 

CURRENT=0 
E 1 = 1 
D1=3 

BIS-SRC-EA=4 
E2 = 5 

BIS-DST-EA=6 
D2 = 7 



; WHICH PXCT BITS TO LOOK AT 



AREAD/=<102> 
DP FUNC/=<103> 

LDVMA/=<104> 



LET DROM SELECT SYSLE TYPE AND VMA LOAD 
IGNORE # BITS 0-11 AND USE DP 0-13 INSTEAD 

DP9 MEANS "FORCE PREVIOUS" 
LOAD THE VMA 



EXT ADR/=<105> 

WAIT/=<106> 

BWRITE/=<107> 



PUT VMA BITS 14-17 ONTO BUS 
START A MEMORY OR I/O CYCLE 
START A MEMORY CYCLE IF DROM ASKS FOR IT 
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1 159 
1 160 
1 161 
1162 
1 163 
1 164 
1 165 
1 166 
1 167 
1168 
1 169 
1 170 



; THESE BITS ARE USED ONLY TO SETUP DP FOR A DP FUNCTION 



; <99> 
10 CYCLE/=<100> 
WRU CYCLE/=<101> 



VECTOR CYCLE/=<102> 
10 BYTE/=<103> 
; <104> 



PREVIOUS 

THIS IS AN I/O CYCLE 
WHO ARE YOU CYCLE 



; READ INTERRUPT VECTOR 
; BYTE CYCLE 
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1171 




REDEFINED WHEN 


1 172 


Pi 


. ZER/=<90:92> 


1 173 


PI 


. IP1/=<93> 


1174 


PI 


. IP2/=<94> 


1 175 


Pi 


. IP3/=<95> 


1 176 


PI 


. IP4/=<96> 


1 177 


PI 


. IP5/=<97> 


1 178 


PI 


. IP6/=<98> 


1 179 


Pi 


. IP7/=<99> 


1 180 


PI 


.ON/=<100> 


1 181 


PI 


.C01/=<101> 


1 182 


PI 


.C02/=<102> 


1 183 


I . 


C03/=<103> 


1 184 


I . 


C04/=<104> 


1 185 


I . 


C05/=<105> 


1 186 


I . 


C06/=<106> 


1 187 


I . 


C07/=<107> 


1188 






1 189 


;# 


REDEFINED WHEN 


1 190 


PI 


.MBZ/=<90:93> 


1 191 


PI 


.DIR/=<94> 


1 192 


PI 


.CLR/=<95> 


1 193 


PI 


.REQ/=<96> 


1 194 


PI 


.TCN/=<97> 


1 195 


PI 


.TCF/=<98> 


1 196 


PI 


.TSF/=<99> 


1 197 


PI 


.TSN/=<100> 


1 198 


PI 


.SC1/=<101> 


1 199 


PI 


.SC2/=<102> 


1200 


PI 


.SC3/=<103> 


1201 


PI 


.SC4/=<104> 


1202 


PI 


.SC5/=<105> 


1203 


PI 


.SC6/=<106> 


1204 


PI 


.5C7/=<107> 


1205 







; ZEROS 

; PI 1 IN PROG 



; SYSTEM IS ON 
; CHAN 1 IS ON 



USED AS WRPI DATA 

;MUST BE ZERO 
DROP INTERRUPT REQUESTS 
; CLEAR SYSTEM 
; REQUEST INTERRUPT 
TURN CHANNEL ON 
; TURN CHANNEL OFF 
TURN SYSTEM OFF 
TURN SYSTEM ON 
SELECT CHANNEL 1 
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1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 



;# REDEFINED WHEN USED AS AC CONTROL 



THIS FIELD CONTROLS THE INPUT TO A 74LS181 ON DPE6 . THE NUMBER 
FIELD HAS THIS FORMAT IN <98:107>: 



CARRY! S8 


1 i 

! S4 ! S2 


S1 


MODE! B8 


- f - • 

! B4 


- | j 

! B2 ! B1 


IN ! 


FUNCTION 






DATA 


INPUTS 



ACALU/=<98: 103> 
B = 25 
AC+N=62 

ACN/=<104: 107> 

SRCLEN=0 

SRCP=1 

DLEN=3 

DSTP=4 

MARK=3 

BIN0=3 

BIN1=4 



AC NAMES FOR STRING INSTRUCTIONS 

SOURCE LENGTH 

SOURCE POINTER 

DEST LENGTH 

DEST POINTER 

POINTER TO MARK 

HIGH WORD OF BINARY 

LOW WORD OF BINARY 



f 

V 
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1231 ;# FIELD REDEFINED WHEN USE AS APRID DATA 

1232 MICROCODE OPT X 0NS/=<90 : 98> 

1233 ; 100 - NON-STANDARD MICROCODE 

1234 ;200 - NO CST AT ALL 

1235 ;400 - INHIBIT CST UPDATE IS AVAILABLE 

1236 ;040 - UBABLT INSTRUCTIONS ARE PRESENT 

1237 ;020 - KI PAGING IS PRESENT 

1238 ;010 - KL PAGING IS PRESENT 

1239 MICROCODE OPTION( INHCST )/=<90> 
;1240 .IF/INHCST 

;1241 0PT=1 

1242 . IFNOT/INHCST 

1243 0PT=O 

1244 . ENDI F/INHCST 

1245 MICROCODE OPT ION( NOCST )/=<9 1 > 
;1246 .IF/NOCST 

;1247 0PT=1 

1248 .IFNOT/NOCST 

1249 OPT=0 

1250 . ENDI F/NOCST 

1251 MICROCODE 0PTI0N(N0NSTD)/=<92> 

1252 . I F/NONSTD 

1253 0PT=1 
; 1254 . I FNOT/NONSTD 
;1255 OPT=0 

1256 . ENDI F/NONSTD 

1257 MICROCODE OPT I ON ( UBABLT )/=<93> 

1258 . I F/UBABLT 

1259 0PT=1 
; 1260 . I FNOT/UBABLT 
; 1261 OPT=0 

1262 . ENDI F/UBABLT 

1263 MICROCODE OPTION(KIPAGE )/=<94> 

1264 . I F/KIPAGE 

1265 OPT- 1 
; 1266 . I FNOT/KI PAGE 
; 1267 OPT=0 

1268 . ENDI F/KIPAGE 

1269 MICROCODE OPT I ON (KLP AGE )/=<95> 
;1270 . I F/KLPAGE 

;1271 0PT=1 

1272 . I FNOT/KLPAGE 

1273 OPT=0 

1274 . ENDI F/KLPAGE 
1275 

1276 MICROCODE VERSI0N/=<99 : 107> 

1277 UCV=124 
1278 
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^7Q 


Iff rlfcLU Ktutr INtu 


yupM 
writixi 


i OQA 






1 OR 1 


rIA L, 1 / — ^ J?VJ . \\J 1 ^ 




1 Zo4 












1 OR4 


HALT = 1 




1 Zo3 


CSL = 2 




■4 OQR 






1 *£o / 


I0PF=1OO 




1 OPP 

I ZOO 


ILLII=101 






ILLINT=102 




^ OQA 






^ OQ 4 

1 Zt3 1 


BW14=1000 




i zy<i 


NICOND 5=1004 


1 Zzfo 


MULERR=1005 


4 OQA 


. I FNOT/FULL 




i oqc; 

1 ^33 


PAGEF= 1777 




1 


. ENDI F/FULL 




1 297 






1 298 






1 299 






1 300 


;# FIELD REDEFINED 


WHEN 


1301 






1302 


FLG. W/=<94> 




1303 


FLG.Pl/=<95> 




1304 


FLG.C/=<96> 




1305 


FLG.SN/=<97> 




1306 






1307 


; RIGHT HALF OF FLG 


USED 


1308 







CODES O TO 77 ARE "NORMAL " HALTS 
POWER UP 

HALT INSTRUCTION 
CONSOLE HALT 

CODES 100 TO 777 ARE SOFTWARE ERRORS 
I/O PAGE FAIL 

ILLEGAL INTERRUPT INSTRUCTION 

BAD POINTER TO UNIBUS INTERRUPT VECTOR 

CODES 1000 TO 1777 ARE HARDWARE ERRORS 

ILLEGAL BWRITE FUNCTION (BAD DROM) 

ILLEGAL NICOND DISPATCH 

VALUE COMPUTED FOR 10**21 WAS WRONG 

; PAGE FAIL IN SMALL MICROCODE 



W BIT FROM PAGE MAP 
PI CYCLE 

CACHE BIT FROM PAGE MAP 
SPECIAL NEGATE IN FDV & DFDV 



r 
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1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 



.TOC 



"DISPATCH ROM DEFINITIONS" 



; ALL ON DPEA 



A/=<2:5> 



. DCODE 

READ=0 

WRITE=1 

DREAD=2 

DBLAC=3 

SHIFT=4 

DSHIFT=5 

FPI=6 

FP = 7 

RD-PF=10 
DFP=1 1 
I0T=12 



B/=<8: 1 1> 

SELF=4 

DBLAC=5 

DBLB=6 

AC=15 

MEM=16 

B0TH=17 



OPERAND FETCH MODE 

Rf AD 

WRITE 

DOUBLE READ 
DOUBLE AC 
SIMPLE SHIFT 
DOUBLE SHIFT 

FLOATING POINT IMMEDIATE 

FLOATING POINT 

READ, THEN START PREFETCH 

DOUBLE FLOATING POINT 

CHECK FOR 10 LEGAL THEN SAME AS 

STORE RESULTS AS 
SELF 

DOUBLE AC 
DOUBLE BOTH 
AC 

MEMORY 
BOTH 



;B-FIELD WHEN USED IN FLOATING POINT OPERATIONS 



R0UND/=<8> 

M0DE/=<9> 

FL-B/=<10: 1 1> 
AC=1 
MEM=2 
B0TH=3 

J/=<12:23> 

ACDISP/=<24> 
I/=<25> 

READ/=<26> 
TEST/=<27> 
COND FUNC/=<28> 
VMA/=<29>D,1 
WRITE/=<30> 

.UCODE 



ROUND THE RESULT 
SEPARATE ADD/SUB & MUL/DIV ETC. 
STORE RESULTS AS 
AC 

MEMORY 
BOTH 

DISPATCH ADDRESS (MUST BE 1400 TO 1777) 
DISPATCH ON AC FIELD 

IMMEDIATE DISPATCH. DISP/AREAD DOES A DISP/DROM 

IF THIS BIT IS SET. 
START A READ AT AREAD 
START A WRITE TEST AT AREAD 
START A MEMORY CYCLE ON BWRITE 
LOAD THE VMA ON AREAD 
START A WRITE ON AREAD 



T10KI .MCR[ 10, 1 141 ] 
KS10.MIC[ 10, 1141] 



11:45 11 -AUG- 1984 
07: 10 27-JULY-1984 



MICRO 31(254) 



KS10 MICROCODE V124, 27-JUL-84 Page 37 
HOW TO READ MACROS 



.TOC 



"HOW 



TO READ MACROS" 

1.0 REGISTER TRANSFER MACROS 

MOST MACROS USED IN THE KS10 ARE USED TO OPERATE ON DATA IN (OR FROM/TO) 2901 
REGISTERS. THE NAMES OF THE 2901 REGISTERS ARE MACRO PARAMETERS AND ARE 
ENCLOSED IN []. A TYPICAL MACRO IS: 

[AR]_[AR]+[BR] 

THE SYMBOL _ IS PRONOUNCED "GETS". THE ABOVE MACRO WOULD BE READ "THE AR GETS 
THE AR PLUS THE BR" 

IF A MACRO DOES NOT HAVE A _ IN IT, THERE IS NO RESULT STORED. THUS, [ AR] - [BR] 

JUST COMPARES THE AR AND THE BR AND ALLOWS FOR SKIPS ON THE VARIOUS ALU BITS. 



1 . 1 SPECIAL SYMBOLS 

THERE ARE A BUNCH OF SYMBOLS USED IN THE MACROS WHICH ARE NOT 
THEY ARE DEFINED HERE: 



1 . 
2. 
3. 
4. 



6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 



AC -- THE AC SELECTED BY THE CURRENT INSTRUCTION. 
AC[] -- AC+N. AC[1] IS AC+1, AC[2] IS AC+2 , ETC. 
APR -- THE APR FLAGS FROM DPMA 

EA -~ V THE EFFECTIVE ADDRESS. THAT IS, IN THE 
CONTENTS OF THE HR IN THE RIGHT HALF. 



2901 
SEE DPEA 



REGISTERS. 



LEFT HALF AND THE 



EXP -- THE F.P. EXPONENT FROM THE SCAD. [AR]__EXP WILL TAKE THE 
EXPONENT OUT OF THE FE AND PUT IT BACK INTO THE NUMBER IN THE AR . 

FE THE FE REGISTER 

FLAGS THE PC FLAGS (FROM DPE9) IN THE LEFT HALF. 
-- THE Q REGISTER 

RAM -- THE RAM FILE, RAM ADDRESS IS IN THE VMA . 

P THE P FIELD OF THE BYTE POINTER. SAME IDEA AS EXP. 

TIME THE 1MS. TIMER 

VMA -- THE VMA. WHEN READ IT INCLUDES THE VMA FLAGS 
XR -- INDEX REGISTER 



; T10KI .MCR[ 10, 1141] 

; KS10.MIC[ 10, 1141] 

; 1406 ; 

; 1407 ; 

; 1408 ; 

; 1409 ; 

; 1410 ; 

; 1411 ; 

; 1412 ; 

; 1413 ; 

; 1414 ; 

; 1415 ; 

; 1416 ; 

; 1417 ; 

; 1418 ; 

; 1419 ; 

; 1420 ; 

; 1421 ; 

; 1422 ; 

; 1423 ; 

; 1424 ; 

; 1425 ; 

; 1426 ; 

; 1427 ; 

; 1428 ; 

; 1429 ; 

; 1430 ; 

; 1431 ; 

; 1432 ; 

; 1433 ; 

; 1434 ; 

; 1435 ; 

; 1436 ; 

; 1437 ; 

; 1438 ; 

; 1439 ; 

; 1440 ; 

; 1441 ; 

; 1442 ; 

; 1443 ; 

; 1444 ; 

; 1445 ; 

; 1446 ; 

; 1447 ; 

; 1448 ; 

; 1449 ; 

; 1450 ; 

; 1451 ; 

; 1452 ; 

; 1453 ; 

; 1454 
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14. XWD -- HALF WORD . USED TO GENERATE CONSTANTS. FOR EXAMPLE, [AR]_0 XWD 
[40] WOULD LOAD THE CONSTANT 40 (OCTAL) INTO THE AR. 

15. +SIGN AND -SIGN -- SIGN BITS USED TO SIGN SMEAR F.P. NUMBERS. FOR 
EXAMPLE, [AR]_+SIGN WOULD CLEAR AR BITS O TO 8. 

16. WORK[] ~- LOCATIONS IN THE WORKSPACE USED AS SCRATCH SPACE.* FOR 
EXAMPLE, [AR]_WORK[CSTM] WOULD LOAD THE AR WITH THE CST MASK FROM THE 
RAM. CSTM IS A SYMBOL DEFINED IN THE WORK FIELD. 



1 . 2 LONG 

LONG IS USED ON SHIFT OPERATIONS TO INDICATE THAT THE REGISTER IS ALSO 
SHIFTED. THIS SAYS NOTHING ABOUT HOW THE SHIFT PATHS ARE CONNECTED UP. 



2.0 MEMORY MACROS 

MEMORY IS INDICATED BY THE SYMBOL "MEM". WHEN WE ARE WAITING FOR DATA FROM 
MEMORY THE "MEM READ" MACRO IS USED. WHEN WE ARE SENDING DATA TO MEMORY, THE 
"MEM WRITE" MACRO IS USED. EXAMPLE, 

MEM READ, ;WAIT FOR MEMORY 

[ AR ] MEM ; LOAD DATA INTO AR 

VMA IS USED THE LOAD THE VMA . THUS, VMA_[PC] LOADS THE VMA FROM THE PC. 



3.0 TIME CONTROL 

THERE ARE 2 SETS OF MACROS USED FOR TIME CONTROL. THE FIRST, SELECTS THE RAM 
ADDRESS TO SPEED UP THE NEXT INSTRUCTION. THESE MACROS ARE AC, AC[J, XR , VMA, 
WORK[]. THE SECOND, SETS THE TIME FIELD. THESE ARE 2T , 3T , 4T , AND 5T TO 
SELECT 2, 3, 4, OR 5 TICKS. 



4.0 SCAD MACROS 

THE SCAD MACROS LOOK LIKE THE 2901 MACROS EXECPT NO [] ARE REQUIRED. THERE ARE 
ONLY A FEW SYMBOLS USED. 

1. FE -- THE FE REGISTER 

2. SC -- THE SC REGISTER 



T10KI . 


MCR[ 10, 1 141 ] 


KS10.MIC[ 10, 1 141 ] 


1455 




1456 




1457 




1458 




1459 




1460 




1461 




1462 




1463 




1464 




1465 




1466 




1467 




1468 




1469 




1470 




1471 




1472 




1473 




1474 




1475 




1476 




1477 




1478 




1479 




1480 




1481 




1482 




1483 




1484 , 




1485 , 




1486 ; 




1487 , 




1488 ; 




1489 ; 




1490 ; 




1491 ; 




1492 ; 




1493 ; 




1494 ; 




1495 ; 




1496 ; 




1497 ; 




1498 ; 




1499 ; 




1500 ; 




1501 ; 




1502 ; 




1503 ; 




1504 ; 




1505 
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3. EXP -- THE EXPONENT FROM A F.P. NUMBER. FOR EXAMPLE FE_EXP LOADS THE 
FE FROM DP BITS 1-8. 

4. SHIFT THE SHIFT COUNT FROM SHIFT INSTRUCTIONS. THAT IS DP BITS 18 
AND 28-35. 

5. S# THE SMALL NUMBER. THE 10 BIT MAGIC NUMBER INPUT TO THE SCADA 
MIXER. 



5.0 CONTROL MACROS 

ALL CONTROL MACROS LOOK LIKE ENGLISH COMMANDS. SOME EXAMPLES, 
HOLD LEFT ; DO NOT CLOCK LEFT HALF OF DP 

SET APR ENABLES ; LOAD APR ENABLES FROM DP 

SET NO DIVIDE ;SET NO DIVIDE PC FLAG 



6.0 SKIPS 

ALL SKIPS CAUSE THE NEXT MICRO INSTRUCTION TO COME FROM THE ODD WORD OF ' AN 
EVEN/ODD PAIR. THE MACROS HAVE THE FORMAT OF SKIP COND . THEY SKIP IF CONDITION 
IS TRUE. SOME EXAMPLES, 

SKIP AD.EQ.O ;SKIP IF ADDER OUTPUT IS ZERO 

SKIP IRPT ;SKIP IF INTERRUPT I S PENDING 



7.0 DISPATCH MACROS 

DISPATCH MACROS CAUSE THE MACHINE TO GO TO ONE OF MANY PLACES. IN MOST CASES 
THEY HAVE THE WORD "DISP" IN THE NAME OF THE MACRO. FOR EXAMPLE, MUL DISP, BYTE 
DISP. 



8.0 SUPER MACROS 

THERE ARE PLACES WHERE ONE MICRO INSTRUCTION IS USED IN MANY PLACES. FOR 
EXAMPLE, MANY PLACES DETECT ILLEGAL OPERATIONS AND WANT TO GENERATE A TRAP TO 
THE MONITOR. WE COULD WRITE 
J/UUO 

BUT THIS WASTES A MICRO STEP DOING A USELESS JUMP. INSTEAD WE WRITE, 
UUO 

THIS MACRO IS THE FIRST STEP OF THE UUO ROUTINE AND JUMPS TO THE SECOND 
INSTRUCTION. WE WRITE THE EXPANSION OF THE UUO MACRO AS THE FIRST INSTRUCTION 
OF THE UUO ROUTINE SO THAT THE READER CAN SEE WHAT IT DOES. SOME EXAMPLES OF 
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1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
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SUPER MACROS ARE: 

PAGE FAIL TRAP 
DONE 



HALT [] 
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GENERATE A PAGE FAIL TRAP 

THIS INSTRUCTION IS NOW COMPLETE 

USED WITH A SKIP OR DISP WHERE 

SOME PATHS ARE NOP'S 
JUMP TO HALT LOOP. ARGUMENT IS A 

CODE 
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1514 .TOC "MACROS DATA PATH CHIP GENERAL" 
1515 

1516 .NOT.[] "AD/.N0T.A,A/@1" 

1517 []+[] "AD/A+B, A/@1 , B/@2 " 

1518 []-[] "AD/A-B-.25,A/@1,B/@2,ADD .25" 

1519 []-# "AD/A-D- . 25 , DBUS/DBM , DBM/ #, A/@>1 , ADD .25" 

1520 [ ] . AND .# "AD/D. AND. A, DBUS/DBM, DBM/#,A/@>1 " 

1521 [ ] . AND . "AD/ A . AND . Q , A/@ 1 , DEST/PASS " 

1522 [ ] .AND. [ ] "AD/A. AND. B,A/@2,B/@1 , DEST/PASS" 

1523 [ ] .AND. NOT. [ ] "AD/ . NOT . A AND . B , A/@2 , B/@> 1 , DEST/PASS" 

1524 [].0R.[] "AD/A. OR. B, A/@2,B/@1 , DEST/PASS" 

1 525 [ ] . XOR . # " AD/D . XOR . A , DBUS/DBM , DBM/# , A/P 1 " 

1526 [ ] .XOR. [ ] "AD/ A . XOR . B , A/@2 , B/@1 , DEST/PASS " 

1527 [3 #-[3 "AD/D-A-. 25, DEST/AD, A/@2, B/@1 , DBUS/DBM, DBM/#, ADD .25" 

1528 [] # " AD/D , DBUS/DBM , DBM/ # , DEST/ AD , B/@ 1 " 

1529 []~-1 "AD/-A-. 25, A/ONE, DEST/AD , B/@ 1 , ADD .25" 

1530 [ ]~-2 "AD/-A-. 25, DEST/AD*2, A/ONE, B/@1, ADD .25" 

1531 [] -Q "AD/-Q-. 25, DEST/AD, B/@1 , ADD .25" 

1532 [3_-Q*2 "AD/-Q- . 25 , DEST/AD*2 , B/@ 1 , ADD .25" 

1533 []_-Q*-5 "AD/-Q-. 25, DEST/AD*. 5, B/@1, ADD .25" 

1534 []_-[] "AD/-A-. 25, A/@2, DEST/AD, B/@1, ADD .25" 

1535 [3 -[']-. 25 "AD/-A-. 25, A/@2 , DEST/AD, B/@1" 

1536 [3l"[]*2 "AD/- A - . 25 , A/@>2 , DEST/AD* 2 , B/@1 , ADD .25" 

1537 [] .NOT. AC "AD/ . NOT . D , DBUS/RAM , RAMADR/AC# , DEST/AD , B/@1 " 

1 538 [ ]~. NOT . AC [ 3 "AD/ . NOT . D , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N, ACN/@2 , DEST/AD , B/P 1 , DT/3T " 

1539 [3_.NOT.O " AD/. NOT. Q, DEST/AD, B/@>1" 

1540 [3_.NOT.[3 " AD/. NOT. A, A/@2, DEST/AD, B/@1" 

1541 [3_0 "AD/ZERO, DEST/AD, B/@1 " 

1542 C3 0*.5 LONG "AD/ZERO , DEST/Q_Q* . 5 , B/@1 " 

1543 [3~0 XWD [3 "AD/47 , DEST/AD , B/@> 1 , DBM/ # , DBUS/DBM, #/@2 , RSRC/DA , A/MASK " 

1544 []""AC "AD/D , DBUS/RAM , RAMADR/ AC# , DEST/ AD , B/@>1 , AD PARITY" 

1545 [3~-AC "AD/-D-. 25, DBUS/RAM, RAMADR/AC#, DEST/AD, B/@>1 , ADD .25" 

1 546 [ ]-- AC [ ] " AD/-D- . 25 , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/P 1 , ADD . 25 , DT/3T " 

1547 [ ]~AC* . 5 "AD/D , DBUS/RAM , RAMADR/ AC# , DEST/ AD* . 5 ,B/@1 ,DT/3T " 

1 548 [ ] ""AC* . 5 LONG " AD/D , DBUS/RAM , RAMADR/ AC# , DEST/Q__Q* . 5 , B/P 1 , DT/3T " 

1 549 [ ]~AC *2 " AD/D , DBUS/RAM , RAMADR/ AC# , DEST/AD* 2 , B/@ 1 , DT/3T " 

1 550 [ 3IAC+ 1 " AD/D+A , DBUS/RAM , RAMADR/ AC# , A/ONE , DEST/AD , B/P 1 " 

1551 [ 3 AC+ 1 00000 1 " AD/D+A , DBUS/RAM , RAMADR/ AC# , A/XWD 1 , DEST/AD , B/@ 1 " 

1552 [ 3 AC+[ 3 "AD/D+A, A/@2 , DBUS/RAM, RAMADR/AC#, DEST/AD, B/Pi ,DT/3T" 

1553 [ ]""AC-1 "AD/D -A- . 25 , DBUS/RAM, RAMADR/ AC# , A/ONE , DEST/ AD , B/@1 , ADD .25" 

1554 [3~AC-[] "AD/D-A-. 25, A/@2, DBUS/RAM, RAMADR/AC#, DEST/AD, B/@1, ADD .25" 

1 555 [ 3"~AC- [ 3 - . 25 "AD/D- A- . 25 , A/@2 , DBUS/RAM , RAMADR/ AC# , DEST/AD , B/P 1 " 

1556 [ ]~AC [ ] - [ ] "AD/D- A- . 25 , A/@3 , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/P 1 , ADD . 25 , DT/3T " 

1 557 [ 3~AC [3-1 " AD/D- A - . 25 , A /ONE , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/P 1 , ADD . 25 , DT/3T " 

1 558 [ 3~"AC [ ] AND . [ ] "AD/D . AND . A , A/@3 , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/P 1 , DT/3T " 

1 559 [ ]~AC . AND . MASK " AD/D . AND . A , A/MASK , DBUS/RAM , RAMADR/ AC# , DEST/AD , B/@ 1 , AD PAR I TY " 

1560 [ 3~AC[ 3 "AD/D, DBUS/RAM, RAMADR/AC*#, ACALU/AC+N, ACN/@2, DEST/AD, B/@1 , AD PARITY , DT/3T " 

1561 []~AC[]*2 "AD/D, DBUS/RAM, RAMADR/AC*#, ACALU/AC+N, ACN/@2 , DEST/AD*2, B/@1 , AD PARITY , DT/3T" 

1562 [ 3~AC [ 3 * . 5 "AD/D , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N, ACN/@2 , DEST/AD* . 5 , B/P 1 , AD PARITY , DT/3T " 

1563 []~APR "AD/D, DBUS/DBM, DBM/APR FLAGS , DEST/AD , B/P 1 , DT/3T " 

1564 []~CURRENT AC [] "AD/D , DBUS/RAM , RAMADR/# , ACALU/B , ACN/@2 , DEST/AD , B/P 1 , AD PARITY , DT/3T " 

1565 C3_EA FROM [3 "AD/57 , RSRC/OA , A/@2 , DEST/AD , B/@1 " 
1566 
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1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 



EA "AD/57 , R5RC/0A , A/HR , DEST/AD , B/@ 1 " 

"EXP "AD/D , DBUS/DBM, DBM/EXP , A/@1 , B/@1 , DEST/A , SCAD/A+B , SCADA/S# , S#/0, SCADB/FE , HOLD RIGHT, EXP TEST" 

"FE " AD/D , DEST/AD* . 5 , B/@ 1 , DBUS/DBM , DBM/DP , SCAD/A+B , SCADA/S# , S#/0 , SCADB/FE , BYTE/BYTE5 " 

""FLAGS "AD/D . AND . A , DBUS/PC FLAGS , A/MASK , DEST/AD , B/@ 1 , RSRC/OO " 

> "AD/D , DEST/A , A/*1 , B/P 1 , DBUS/DBM, DBM/DP , BYTE/BYTE 1 , SCAD/A+B , SCADA/S* , S#/0, SCADB/FE " 

"PC WITH FLAGS " AD/D , DBUS/PC FLAGS , RSRC/OA , A/PC , DEST/AD , B/@ 1 " 

"0 " AD/Q, DEST/AD, B/@ 1 " 

"Q*.5 "AD/O, DEST/AD*. 5, B/@1" 

"0*2 "AD/Q,DEST/AD*2,B/@1 " 

"0*2 LONG "AD/0,DEST/0_0*2,B/@1 " 

"0+ 1 " AD/A+O , A/ONE , DEST/AD , B/@ 1 " 

"RAM "AD/D , DBUS/RAM , RAMADR/RAM , DEST/AD , B/@>1 , AD PARITY " 

"TIME "AD/44 , RSRC/DA , A/MASK , DBUS/DBM , DBM/EXP , DEST/AD , B/@ 1 " 

"VMA "AD/D, DEST/AD, B/@1 , DBUS/DBM , DBM/VMA " 

"XR "AD/D , DBUS/RAM, RAMADR/XR# , DEST/AD , B/@1" 
"AD/A, A/@2, DEST/AD, B/@1" 

SWAP "AD/D , DBUS/DBM, DBM/DP SWAP , DEST/A , A/@2 , B/@1 " 

XWD O " AD/45 , DEST/AD , B/@> 1 , DBM/ # , DBUS/DBM , #/@2 , RSRC/DO , A/MASK " 

* . 5 "AD/A , A/@2 , DEST/AD* . 5 , B/@1 " 

*.5 LONG "AD/A,A/@2,DEST/Q_Q*.5,B/@1" 

*2 »AD/A,A/@2,DEST/AD*2,B/@1" 

*2 LONG "AD/A,A/@2,DEST/Q_Q*2,B/@>1" 

*4 "AD/A+B,A/@2,B/@1 ,DEST/AD*2" 

+ # " AD/D+A , DBUS/DBM , DBM/ # , A/@2 , DEST/AD , B/@ 1 " 

+.25 "AD/O+A, A/@2, DEST/AD ,B/@1 , ADD .25" 

+0 "AD/O+A, A/@2, DEST/AD, B/@1 " 

+1 "AD/A+B, A/ONE, B/@1 , B/@2 , DEST/AD " 

+100000 1 " AD/D+A , A/@2 , DBUS/DBM , DBM/ # , #/ 1 , DEST/AD , B/@ 1 " 

+AC " AD/D+A , A/@2 , DBUS/RAM , RAMADR/AC# , DEST/AD , B/@ 1 " 

+AC [ ] " AD/D+A , A/@2 , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@>3 , DEST/AD , B/@ 1 , DT/3T " 

+Q "AD/A+Q, A/@2, DEST/AD, B/@1 " 

+RAM " AD/D+A , A/@2 , DBUS/RAM , RAMADR/RAM , DEST/AD , B/@ 1 " 

+XR "AD/D+A , DBUS/RAM , RAMADR/XR# , A/@2 , DEST/AD , B/@ 1 , HOLD LEFT " 

+[ ] "AD/A+B, A/@3,B/@1 , B/@2 , DEST/AD " 

+[j+.25 "AD/A+B, A/@3,B/@1 ,B/@2, DEST/AD, ADD .25" 

-# "AD/A-D- .25, DBUS/DBM, DBM/# , A/<3>2 , DEST/AD, B/@1 , ADD .25" 

-1 "AD/B-A-. 25, B/@1 , A/ONE, DEST/AD, ADD .25" 

- 1000001 "AD/A-D- . 25 , A/@2 , DBUS/DBM , DBM/ # , #/ 1 , DEST/AD , B/@1 , ADD . 25 " 
-AC " AD/A-D- . 25 , A/@2 , DBUS/RAM , RAMADR/AC* , DEST/AD , B/@ 1 , ADD . 25 " 

- RAM " AD/A -D - . 25 , A/<§>2 , DBUS/RAM , RAMADR/RAM , DEST/AD , B/@ 1 , ADD . 25 " 
- [ ] " AD/B-A- . 25 , B/@ 1 , B/@2 , A/@3 , DEST/AD , ADD . 25" 
-[] REV "AD/A-B-. 25, B/@1 ,B/@3,A/@2, DEST/AD, ADD .25" 
. AND . # "AD/D . AND . A , DBUS/DBM , DBM/ # , DEST/AD , A/@2 , B/@ 1 " 
. AND . # CLR LH "AD/ZERO , RSRC/DA , DBUS/DBM , DBM/# , DEST/AD , A/@2 , B/@ 1 " 
. AND . # CLR RH "AD/D . AND . A , RSRC/OQ , DBUS/DBM , DBM/# , DEST/AD , A/@2 , B/@ 1 " 

AC [ ] . AND . [ ] ) * . 5 " AD/D . AND . A , DEST/AD* . 5 , A/@3 , B/@ 1 , RAMADR/ AC*# , DBUS/RAM , ACALU/AC+N , ACN/@2 " 

0+ 1 ) * . 5 " AD/A+O , A/ONE , DEST/AD* . 5 , B/@ 1 " 

#-[ 3 )*2 "AD/D-A- . 25 , DEST/AD* 2 , A/@>2 , B/@1 , DBUS/DBM , DBM/ # , ADD .25" 

-[ 3 )*.5 "AD/- A - . 25 , A/@2 , DEST/AD* . 5 , B/@> 1 , ADD .25" 

-[3-. 25)*. 5 LONG »AD/-A-.25,A/@2,DEST/0_0*-5,B/@1" 
-[]-.25)*2 LONG "AD/-A-.25,A/@2,DEST/0_0*2,B/@1" 



\ 
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1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
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[ ] . AND . # ) * . 5 " AD/D . AND . A DBUS/DBM , DBM/ # , DEST/AD* . 5 , A/@2 , B/@ 1 " 
[ ] . AND . # ) *2 "AD/D . AND . A , DBUS/DBM , DBM/ # , DEST/ AD*2 , A/@2 , B/@> 1 " 
[ ] AND . NOT . # ) * . 5 "AD/ . NOT . D . AND . A , DBUS/DBM , DBM/ tf , DEST/AD* . 5 , A/@2 , B/@1 " 
[ ] . AND . NOT . # ) *2 "AD/ . NOT . D . AND . A , DBUS/DBM , DBM/ # , DEST/ AD*2 , A/@2 , B/@ 1 " 

[ 3 .AND. [ 3 )*.5 "AD/ A . AND . B , DEST/AD* . 5 , A/@>3 , B/@ 1 , B/@>2" 
[ 3 .AND. [ 3 )*2 "AD/A. AND. B,DEST/AD*2, A/@3,B/@1 ,B/@2" 
[ ] . OR . # ) * . 5 "AD/D . OR . A , DBUS/DBM , DBM/ # , DEST/AD* . 5 , A/@>2 , B/@> 1 " 
[ 3 - OR . # ) *2 " AD/D. OR. A, DBUS/DBM, DBM/# , DEST/AD*2 , A/@2,B/@1 " 
[ ] + # ) *2 " AD/D+A , DBUS/DBM , DBM/# , DEST/ AD*2 , A/@2 , B/@1 " 

[ ]+1 )*2 "AD/A+B, A/ONE, B/@1 , B/@2 , DEST/ AD*2 " 



" AD/A+B , A/@3 , B/@ 1 , B/@2 , DEST/ Q_Q* . 5 " 
"AD/A+B , A/@>3 , B/@ 1 , B/@2 , DEST/Q_Q*2 " 
"AD/B-A-.25,A/@3,B/#1,B/@2,DEST/Q__0*.5, ADD .25" 
"AD/B-A-.25,A/#3,B/@1,B/@2,DEST/0__0*2, ADD .25" 
"AD/A+B, A/@3,B/@1 , B/@2 , DEST/Q_Q* . 5, ADD .25" 
3 . AND . AC "AD/D . AND . A , DBUS/RAM , RAMADR/AC# , A/@2 , DEST/AD , B/@ 1 " 
] . AND . NOT . # " AD/ . NOT . D . AND . A , DBUS/DBM , DBM/ # , A/@2 , DEST/AD , B/@ 1 " 
3 .AND. NOT. [ 3 "AD/. NOT. A. AND. B, DEST/AD, B/@1 ,B/@2, A/@>3" 

3 AND . NOT . AC "AD/ . NOT . D . AND . A , DBUS/RAM , RAMADR/ AC# , A/@2 , DEST/AD , B/@1 " 



[]+[])*. 5 LONG 
[]+[])*2 LONG 
t3"[3)*-5 LONG 
[]-[])*2 LONG 
[3+C3+.25)*.5 LONG 



] . AND . Q "AD/A. AND. Q,A/@2, DEST/AD, B/@1 " 

3 .AND. [ 3 "AD/A. AND. B, A/@3,B/@1 , B/<§>2 , DEST/AD" 

3 . EQV . AC " AD/D . EQV . A , DBUS/RAM , RAMADR/ AC# , A/@2 , DEST/AD , B/@ 1 " 

3 . EQV . "AD/A . EQV . , A/@2 , DEST/AD , B/@ 1 " 

3 .OR . # "AD/D . OR . A , DBUS/DBM , DBM/# , A/@2 , DEST/AD , B/@ 1 " 

] .OR. AC "AD/D. OR. A, DBUS/RAM, RAMADR/AC# , A/@2 , DEST/AD, B/@1 " 

] . OR . FLAGS "AD/D . OR . A , DBUS/PC FLAGS , RSRC/OA , A/@ 1 , DEST/AD , B/@ 1 ' 

] .OR. t 3 "AD/A. OR. B, A/@3,B/@2,B/@1 , DEST/AD" 

] . XOR . # "AD/D . XOR . A , DBUS/DBM , DBM/ # , DEST/AD , A/@2 , B/@ 1 " 

] . XOR . AC " AD/D . XOR . A , DBUS/RAM , RAMADR/ AC# , A/@ 1 , DEST/AD , B/<3>2 " 

3. XOR. [ ] "AD/A. XOR. B , A/@3 , B/@ 1 , B/@2 , DEST/AD" 

LEFT "AD/57, RSRC/OB, DEST/AD, B/@1" 

RIGHT O "AD/53, RSRC/DO, DEST/AD, B/@1" 

LEFT__- 1 "AD/54 , RSRC/OB , DEST/AD , A/MASK , B/@ 1 " 

RIGHT -1 "AD/53, RSRC/OA, DEST/AD, A/MASK, B/@1 " 



+SIGN "[@13_I>13.AND.#, #/777, HOLD RIGHT" 

"-SIGN "[@1]_[@1].0R.#, 0/777000, HOLD RIGHT" 

THE FOLLOWING 2 MACROS ARE USED IN DOUBLE FLOATING STUFF 
; THEY ASSUME THAT THE OPERAND HAS BEEN SHIFTED RIGHT 1 PLACE.. 
; THEY SHIFT 1 MORE PLACE t 

[ 3 +SIGN* 5 "AD/. NOT. D. AND. A, A/@1 ,B/@1 , DEST/AD*. 5, DBUS/DBM, DBM/# , 0/777400 , RSRC/OA" 

[ 3~*-SIGN* 5 "AD/D. OR. A, A/@1 ,B/@1 , DEST/AD*. 5, DBUS/DBM, DBM/0 , 0/777400, RSRC/OA" 



v y 



T10KI .MCR[ 10, 1 141 ] 
KS 10. MIC[ 10, 1 141 ] 



11:45 11 -AUG- 1984 
07: 10 27-JULY-1984 



MICRO 31(254) K510 MICROCODE V124, 27-JUL-84 Page 44 
MACROS DATA PATH CHIP -- 



1664 


.TOC "MACROS 


1665 




1666 


Q-U 


1667 


Q. AND. NOT. [ ] 


1668 


0_[ ] 


1669 


Q_U-[] 


1670 


t ] + [ ] 


1671 


Q [ ] . AND. [ ] 


1672 


Q . NOT . AC [ ] 


1673 


Q 


1674 


-1 


1675 


-AC[] "AD/-D- 


1676 


Q -0 


1677 


Q AC 


1678 


Q_AC[ ] 


1679 


Q„AC[ ] . AND. MASK 


1680 


Q__AC[ ] . AND . [ ] 


1681 


Q_. NOT . 


1682 


Q_# 


1683 


0_0 


1684 


Q XWD [ ] 


1685 


Q_0+ . 25 


1686 


Q_Q+1 


1687 


q_q- 1 


1688 


Q_Q+ AC 


1689 


Q_Q* . 5 


1690 


0_0*2 


1691 


Q Q. OR . # 


1692 


Q Q . AND . # 


1693 


. AND . [ ] 


1694 


Q Q. AND. NOT. [ ] 


1695 


Q+[J 


1696 


[ ] . AND . 


1697 


[]-OR.Q 


1698 





DATA PATH CHIP -- 0" 

"AD/Q-A- . 25 , A/@1 , ADD .25" 

" AD/ . NOT . A . AND . Q , A/@ 1 , DEST/PASS " 

"AD/ A , DEST/ 0_AD , A/@ 1 " 

" AD/A -B- . 25 , A/@ 1 , B/@2 , DEST/Q_AD , ADD . 25 " 

"AD/A+B , A/@1 , B/@2 , DEST/Q_AD" 

" AD/A . AND . B , A/@ 1 , B/@2 , DEST/Q_AD " 

"AD/ . NOT . D , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DEST/Q_AD , DT/3T " 
"AD/-A-.25,DEST/Q_AD,A/@1 , ADD .25" 
"Q_-[ONE] " 

25 , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DEST/ Q_AD , ADD . 25 , DT/3T " 
"AD/-Q- .25, ADD . 25 , DEST/ Q_AD " 

" AD/D , DBUS/RAM , RAMADR/AC0 , DEST/Q_AD , CHK PARITY " 

" AD/D , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DEST/0_AD , CHK PAR I TY , DT/3T " 

"AD/D . AND . A , A/MASK , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DEST/Q_AD , CHK PARITY , DT/3T " 

"AD/D . AND . A , A/@2 , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@> 1 , DEST/ Q_AD , CHK PARITY , DT/3T " 

"AD/ . NOT . Q , DEST/Q_AD " 
" AD/D , DBUS/DBM , DBM/# , DEST/ 0_AD " 
"AD/ZERO, DEST/Q_AD" 

"AD/47 , DEST/Q_AD , DBM/ # , DBUS/DBM , #/@ 1 , RSRC/DA , A/MASK " 

"AD/O+Q, DEST/Q_AD , ADD .25" 

" AD/A+Q , A/ONE , DEST/Q_AD " 

"AD/Q-A- . 25 , A/ONE , DEST/ Q_AD , ADD .25" 

" AD/D+Q , DBUS/RAM , RAMADR/AC# , DEST/Q_AD " 

»'[MAG]_[MASK]*.5 LONG, SHSTYLE/NORM" 

"[MASK]_[MAG]*2 LONG, SHSTYLE/NORM" 

"AD/D . OR . Q , DBUS/DBM , DBM/ # , DEST/ Q__AD " 

" AD/D . AND . Q , DBUS/DBM , DBM/# , DEST/0_AD " 

" AD/A . AND .0, A/@1 , DEST/ 0_AD " 

" AD/ . NOT . A . AND . Q , A/@ 1 , DEST/ Q_AD " 

"AD/A+O, A/@1 ,DEST/Q__AD" 

" AD/A . AND . , A/@ 1 , DE ST/Q_AD " 

"AD/A.OR.Q, A/@1 ,DEST/Q_AD" 
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1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
171 1 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 



.TOC 



"MACROS DATA PATH CHIP 



MISC. " 



CLEAR []0 " AD/D . AND . A , A/@ 1 , DBUS/DBM , DBM/ # , #/377777 , DEST/ AD , B/@> 1 , HOLD RIGHT" 

CLEAR ARXO "CLEAR [ARX]0" 

;CYCLE CHIP REGISTERS THRU AD SO WE CAN TEST BITS 

READ XR " AD/D , DBUS/RAM , RAMADR/XR# " 

READ [] "AD/B,B/@1" 

READ Q "AD/O" 

; TEST BITS IN REGISTERS (SKIP IF ZERO) 

TR [] "AD/D . AND . A , DBUS/DBM , DBM/ # , A/@1 , SKIP ADR . EQ . 0, DT/3T " 

TL [] "AD/D . AND . A , DBUS/DBM , DBM/ # , A/@ 1 , SKIP ADL . EQ . , DT/3T " 

;CAUSE BITS -2 AND -1 TO MATCH BIT 0. 

FIX [] SIGN "AD/D , DEST/ A , A/@1 , B/@1 , DBUS/DP , HOLD RIGHT" 

; GENERATE A MASK IN Q AND ZERO A 2901 REGISTER 

GEN MSK [ ] "AD/ZERO, DEST/Q_Q*2, B/@1 , ONES" 
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1720 


.TOC "MACROS 


1721 






1722 


FM WRITE 


1723 






1724 


AC[ 


I [3 VIA AD 


1725 


AC 


"3 VIA AD 


1726 


AC[ 


Lu 


1727 


AC[ 


I [] TEST 


1728 


AC[ 


I [3 + 1 


1729 


AC[ 


I C3*2 


1730 


AC 


:i 


1731 


AC 


!3 TEST 


1732 


AC 




1733 


AC 


:j+o 


1734 


ACC 


1 []+0 


1735 


ac[; 


!_[]-[] 


1736 


ACL 


I []+[] 


1737 


AC | 


]+[] 


1738 


ACT. 


i n.AND.n 


1739 


acc; 


I 0. AND. [ 3 


1740 


ACL 


1 [3.E0V.0 


1741 


ACL 


1 -[] 


1742 


AC - 


•[3 


1743 


AC | 


* 3 -or. [ ] 


1744 


ACL 


I . NOT . [ 3 


1745 


AC 


NOT . [ 3 


1746 


ACL 


_-Q 


1747 


AC C 




1748 


ACL 


I 


1749 


ACL 


1 


1750 


ACL 


I 


1751 
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"FMWRITE/1 " 

" AD/B, DEST/PASS, B/@2,RAMADR/AC*#, ACALU/AC+N, ACN/@ 1 , DBUS/DP, FM WRITE , CHK PARITY" 

" AD/B , DE ST/PASS , B/@ 1 , RAMADR/ AC# , DBUS/DP , FM WRITE, CHK PARITY" 

"AD/A , DEST/A , B/@2 , A/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

" AD/D , DBUS/DP , DEST/A , B/@2 , A/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

" AD/A+B , DEST/PASS , A/ONE , B/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

" AD/A+B , DEST/PASS , A/@2 , B/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

"AD/A, DEST/A, B/@1 ,A/@1 ,RAMADR/AC#, DBUS/DP, FM WRITE" 

"AD/D, DBUS/DP, DEST/A, B/@1 , A/@ 1 , RAMADR/ AC# , DBUS/DP , FM WRITE" 

"AD/A+B , DEST/PASS , A/ONE , B/@1 , RAMADR/ AC# , FM WRITE" 

" AD/A+O , DEST/PASS , A/@>1 , B/@ 1 , RAMADR/ AC# , FM WRITE" 

"AD/A+O, DEST/PASS, A/@2 , B/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , FM WRITE" 

" AD/A-B- . 25 , DEST/PASS , B/@3 , A/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE , ADD 
"AD/A+B , DEST/PASS , B/<s>3 , A/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 
"AD/A+B , DEST/PASS , B/@2 , A/@>1 , RAMADR/AC# , DBUS/DP , FM WRITE " 

"AD/A . AND . B , DEST/PASS , B/@3 , A/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

"AD/A . AND . Q , DEST/PASS , A/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRI TE " 

"AD/A . EOV . , DEST/PASS , A/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

" AD/-B- . 25 , DEST/PASS , B/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE , ADD . 25 " 

"AD/- A- . 25 , DEST/PASS , A/@ 1 , RAMADR/ AC# , DBUS/DP , ADD .25,FM WRITE" 

"AD/ A . OR . B , A/@1 , B/@2 , RAMADR/ AC# , DBUS/DP , FM WRITE" 

"AD/ . NOT . B , DEST/PASS , B/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

"AD/ . NOT . B , DEST/PASS , B/@ 1 , RAMADR/ AC# , DBUS/DP , FM WRITE " 

" AD/-0- . 25 , RAMADR/ AC*# , ACALU/AC+N, ACN/@1 , DBUS/DP , FM WRITE , ADD . 25 " 

" AD/Q , RAMADR/ AC# , DBUS/DP , FM WRITE" 

"AD/ZERO, RAMADR/AC*#, ACALU/AC+N, ACN/@1 , DBUS/DP, FM WRITE" 

"AD/B , DEST/PASS , B/ONE , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

"AD/Q, RAMADR/AC*# , ACALU/AC+N, ACN/@1 , DBUS/DP, FM WRITE" 
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1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 



.TOC 



"MACROS MICROCODE WORK SPACE" 



WORK[ ]_Q " AD/Q , DE ST/PASS , RAMADR/ # , W0RK/@>1 , FM WRITE" 

0_WORK [ ] " AD/D , DEST/Q__AD , RAMADR/# , DBUS/RAM , WORK/@ 1 , DT/3T " 

WORK [ ]_0 "AD/ZERO , DEST/PASS , RAMADR/ # , WORK/@ 1 , FM WRITE " 

W0RK[]_1 "AD/B , DEST/PASS , RAMADR/ # , W0RK/@>1 , B/ONE , FM WRITE" 

WORK[ ]_[ ] "AD/B , DEST/PASS , RAMADR/ # , W0RK/@1 ,B/@2,FM WRITE" 

WORK[]_[] CLR LH "AD/47 , RSRC/AB , DEST/PASS , RAMADR/ # , W0RK/@>1 , B/@>2 , A/MASK , FM WRITE" 
W0RK[3_[]-1 " AD/A-B- . 25 , A/@2 , B/ONE , DEST/PASS , RAMADR/ # , W0RK/@1 , FM WRITE, ADD .25" 

WORK[ 3__- NOT . [ ] "AD/ . NOT . B , DEST/PASS , RAMADR/ # , WORK/@ 1 , B/@2 , FM WRITE " 
WORK []_[]. AND . [ ] "AD/A . AND . B , DEST/PASS , RAMADR/# , WORK/@ 1 , A/@2 , B/@3 , FM WRITE " 
3 . AND . NOT . WORK[ 3 "AD/ . NOT . D . AND . A , A/@ 1 , DBUS/RAM , RAMADR/ # , WORK/ @>2 , DT/3T " 
] . AND. WORK[ 3 " AD/D . AND . A , A/@ 1 , DBUS/RAM , RAMADR/ # , WORK/ @2 , DT/ 3T " 
3_[ 3 +WORK [ 3 " AD/D+A , A/@2 , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/# , W0RK/@3 , DT/3T " 

]_[ 3 - AND . WORK [ 3 "AD/D. AND. A, A/@2 , DEST/AD, B/@1 , DBUS/RAM, RAMADR/# , W0RK/@3 , DT/3T " 
3_[ 3 - AND . NOT . WORK [ 3 " AD/ . NOT . D . AND . A , A/@>2 , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/# , W0RK/@3 , DT/3T " 
]_[ 3 .OR. WORK[ 3 " AD/D. OR. A, A/@2 , DEST/AD, B/@1 , DBUS/RAM , RAMADR/# , W0RK/@3 , DT/3T " 
AD/D , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ # , W0RK/@2 , DT/3T " 
AD/ . NOT . D , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ # , W0RK/@2 , DT/3T " 
AD/-D- . 25 , ADD . 25 , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ # , W0RK/@2 , DT/3T " 
AD/D+A , A/ONE , DEST/AD , B/P 1 , DBUS/RAM , RAMADR/ # , W0RK/@2 , DT/3T " 
AD/O-D- . 25 , DEST/0_AD , DBUS/RAM , RAMADR/ # , WORK/@ 1 , ADD . 25 , DT/3T " 
AD/A -D - . 25 , DEST/AD , A/@2 , B/@ 1 , DBUS/RAM , RAMADR/ # , W0RK/@3 , ADD . 25 , DT/3T " 



3__W0RK[ 3 

3_.N0T.W0RK[ 3 

3_-W0RK[ 3 

]__WORK[ 3 + 1 
Q_Q-WORK[ 3 
[]_[]-W0RK[3 



RAM_[ ] 



"AD/B , DEST/PASS , RAMADR/RAM , B/@ 1 , FM WRITE " 
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1779 .TOC "MACROS -- MEMORY CONTROL" 

1780 

1781 MEM CYCLE "MEM/1" 
1782 

1783 ; THE FOLLOWING MACROS CONTROL MEMORY ADDRESS 

1784 LOAD VMA "MEM CYCLE , LDVMA/ 1 " 

1785 FORCE EXEC "FORCE EXEC/1" 

1786 VMA PHYSICAL "PHYSICAL/ 1 , FORCE EXEC/1, FORCE USER/0, EXT ADR/1, LOAD VMA" 

1787 VMA PHYSICAL WRITE "LOAD VMA , VMA PHYSICAL , WAIT/ 1 , MEM/ 1 , WRITE CYCLE/ 1 , WRITE TEST/0" 

1788 VMA PHYSICAL READ "LOAD VMA , VMA PHYSICAL , WAIT/ 1 , MEM/ 1 , READ CYCLE/ 1 , WRITE TEST/0" 

1789 VMA EXTENDED "EXT ADR/1" 
1790 

1791 PXCT EA "PXCT/E 1 " 

1792 PXCT DATA "PXCT/D1" 

1793 PXCT BLT DEST "PXCT/D1" 

1794 PXCT BYTE PTR EA "PXCT/E2" 

1795 PXCT BYTE DATA "PXCT/D2 " 

1796 PXCT STACK WORD "PXCT/D2" 

1797 PXCT BLT SRC "PXCT/D2 " 

1798 PXCT EXTEND EA "PXCT/E2 " 
1799 

1800 ; THE FOLLOWING MACROS GET MEMORY CYCLES STARTED 

1801 WRITE TEST "WRITE TEST/ 1 , WAIT/ 1 " 

1802 START READ "MEM CYCLE, READ CYCLE/ 1 , WAIT/ 1 " 

1803 START WRITE "MEM CYCLE, WRITE TEST, WRITE CYCLE/ 1 , WAIT/ 1 " 

1804 START NO TEST WRITE "MEM CYCLE, WRITE CYCLE/ 1 , WAIT/ 1 " 

1805 FETCH "START READ , FETCH/ 1 , PXCT/CURRENT , WAIT/ 1 " 
1806 

1807 ; THE FOLLOWING MACROS COMPLETE MEMORY CYCLES 

1808 MEM WAIT "MEM CYCLE , WAIT/ 1 " 

1809 MEM READ "MEM WAIT , DBUS/DBM , DBM/MEM" 

1810 MEM WRITE "MEM WAIT,DT/3T" 

1811 SPEC MEM READ " SPEC/WA IT , DBUS/DBM , DBM/MEM" 

1812 SPEC MEM WRITE " SPEC/WAIT , DT/3T " 
1813 

1814 

1815 ; THINGS WHICH WRITE MEMORY 

1816 MEM_[] " AD/B , DE ST/PASS , B/@ 1 , DBUS/DP , RAMADR/VMA , CHK PARITY" 

1817 MEM_Q " AD/Q , DBUS/DP , RAMADR/VMA " 
1818 

1819 

1820 ; THINGS WHICH READ MEMORY 

1821 []_I0 DATA "AD/D , DBUS/DBM, RAMADR/VMA , DEST/AD , B/@ 1 " 

1822 [] MEM "AD/D, DBUS/DBM, RAMADR/VMA, DEST/AD, B/@1 , CHK PARITY" 

1823 [] MEM THEN FETCH "AD/D , DBUS/DBM , RAMADR/VMA , DEST/A , A/PC , B/@ 1 , CHK PARITY, FETCH, LOAD VMA" 

1824 [ ]""~MEM*.5 "AD/D , DBUS/DBM , RAMADR/VMA , DEST/AD* . 5 , B/@ 1 , CHK PARITY" 

1825 [] MEM. AND. MASK "AD/D . AND . A , A/MASK , DBUS/DBM , RAMADR/VMA , DEST/AD , B/@ 1 , CHK PARITY" 

1826 [ ] ""(MEM . AND . [ ] )*.5 "AD/D . AND . A , A/@2 , DBUS/DBM , RAMADR/VMA , DEST/AD* . 5 , B/@ 1 , CHK PARITY" 

1827 Q_MEM "AD/D, DBUS/DBM, RAMADR/VMA, DEST/0_AD, CHK PARITY" 
1828 
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1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 



-TOC 



"MACROS 



VMA 



FUNC/1, DT/3T" 

ADR/1, DP FUNC/1, DT/3T" 



VMA_[ ] 

VMA_J] WITH FLAGS "AD/ A , A/@ 1 , DE ST/PASS , LOAD VMA , WAIT/ 1 , MEM/ 1 , EXT ADR/1, DP 

VMA__[ ] .OR. [ ] WITH FLAGS "AD/ A . OR . B , A/@1 , B/@2 , DE ST/PASS , LOAD VMA, WAIT/1, MEM/1, EXT 
VMA__[ ] + 1 
VMA_[ ]-1 
VMA_[ ]+XR 
VMA__[ ] + [] 

NEXT [] PHYSICAL WRITE "AD/A+B , A/ONE , B/@1 , DEST/AD , HOLD LEFT, LOAD VMA, VMA PHYSICAL, START WRITE" 
;MACROS TO LOAD A 2901 REGISTER WITH VMA FLAG BITS 

[ ]_VMA FLAGS "AD/45 , DEST/AD , B/P 1 , DBM/# , DBUS/DBM , RSRC/DO, A/MASK " 

[]__VMA 10 READ "[@1]_VMA FLAGS, READ CYCLE/1,10 CYCLE/ 1 , WRITE TEST/0, PHYSICAL/1, FORCE EXEC/1, FORCE USER/0" 
[] VMA 10 WRITE "|>1] VMA FLAGS, WRITE CYCLE/1,10 CYCLE/ 1 , WRITE TEST/0 , PHYSICAL/ 1 , FORCE EXEC/1, FORCE USER/0" 



" AD/A , A/@> 1 , DE ST/PASS , LOAD VMA" 

"AD/ A , A/@ 1 , DE ST/PASS , LOAD VMA, WAIT/ 1, MEM/ 1 , EXT ADR/1, 
"AD/ A . OR . B , A/@1 , B/@2 , DE ST/PASS , LOAD VMA, WAIT/1, MEM/1, 
"AD/A+B, A/ONE, B/*1 , DEST/AD, HOLD LEFT, LOAD VMA " 
"AD/B-A-. 25, A/ONE, B/#1 , ADD .25, HOLD LEFT, LOAD VMA" 
" AD/D+A , DBUS/RAM , RAMADR/XR# , A/@ 1 , LOAD VMA " 
" AD/A+B, DEST/PASS, A/@ 1 ,B/@2, LOAD VMA" 
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1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 



.TOC "MACROS TIME CONTROL " 

AC "RAMADR/ AC# " 

AC[ ] "RAMADR/AC*#, ACALU/AC+N, ACN/@1 " 

XR "RAMADR/XR# " 

VMA "RAMADR/ VMA" 

WORKN "RAMADR/ # , W0RK/@1" 

2T "T/2T" 

3T "T/3T" 

4T "T/4T" 

5T "T/5T" 
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1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
190O 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 



.TOC 

LOAD SC 
LOAD FE 
STEP SC 
SHIFT 



SC_SC-1 

SC_SHIFT 

SC_SHIFT-1 

SC_SHIFT-2 

SC_-SHIFT 

SC__-SHIFT-1 

SC__-SHIFT-2 

SC_SC-EXP 

SC_SC-EXP-1 

SC_SC-FE-1 

SC_SC-FE 

SC_EXP 

SC_S#-FE 

SC_FE+S# 

SC_FE 

SC s# 



SC_36 . 

SC__35. 

SC_34 . 

SC_28. 

SC__27. 

SC_26. 

SC_24 . 

SC_22. 

SC_20. 

SC_J9. 

SC_14. 

SC_J1. 

SC___9. 

SC_8. 

SCJ7 

SC_6 

SC_5 

SC__4 

SC_3 

SC_2 

SC_1 

SC_0 

SC_-1 

SC -2 



"MACROS 



SCAD, SC, FE LOGIC" 



"LOADSC/1 " 
"L0ADFE/1" 

"SCAD/A- 1 , SCADA/SC , LOAD SC , SKIP/SC " 
"SCAD/A+B, SCADA/S#, SCADB/FE, S#/1 , LOAD FE, 



MULTI SHIFT/1 1 



"SCAD/A- 1 , SCADA/SC, LOAD SC" 

" SCAD/A+B , SCADA/S# , S#/0, SCADB/SHI FT , LOAD SC " 
SCAD/A+B , SCADA/S# , S#/ 1 777 , SCADB/SHI FT , LOAD SC " 
11 SCAD/A+B , SCADA/S# , S#/ 1 776 , SCADB/SHI FT , LOAD SC " 
" SCAD/A-B , SCADA/S# , S#/0000 , SCADB/SHI FT , LOAD SC " 
"SCAD/A-B , SCADA/S# , SCADB/SHI FT , S#/ 1 777 , LOAD SC " 
' SCAD/A-B , SCADA/S# , SCADB/SHI FT , S#/ 1776 , LOAD SC" 
"SCAD/A-B , SCADA/SC , SCADB/EXP , LOAD SC " 
•SCAD/A-B- 1 , SCADA/SC, SCADB/EXP, LOAD SC" 
"SCAD/A-B- 1 , SCADA/SC, SCADB/FE, LOAD SC" 
"SCAD/A-B, SCADA/SC, SCADB/FE, LOAD SC" 
" SCAD/A+B , SCADA/S# , S#/0 , SCADB/EXP , LOAD SC " 
"SCAD/A-B, SCADA/S#, SCADB/FE, LOAD SC" 
'SCAD/A+B , SCADA/S# , SCADB/FE , LOAD SC" 
" SCAD/A . OR . B , SCADA/S# , S#/0 , SCADB/FE , LOAD SC " 
" SCAD/ A , SCAD A/ S# , LOAD SC" 



"SC 


S#,S#/36. 




"SC" 


~S#,S#/35. 


it 


" sc" 


S#,S#/34. 


ii 


"SC~ 


"S#,S#/28. 


H 


"SC" 


~S#,S#/27. 


II 


"SC~ 


~S#,S#/26. 


II 


"SC" 


S#,S#/24. 


II 


"SC~ 


~S#,S#/22. 


II 


"SC~ 


"S#,S#/20. 


II 


"SC 


~S#,S#/19. 


II 


"SC" 


""S#,S#/14 = 


II 


"SC~ 


~S#,S#/11. 


II 


"SC" 


~S#,S#/9. " 




"SC" 


~S#,S#/8. " 




"SC~ 


~S#,S#/7" 




"SC" 


"S#,S#/6" 




"SC" 


~S#,S#/5" 




"SC 


~S#,S#/4" 




"SC" 


"S#,S#/3" 




"SC" 


~S#,S#/2" 




"SC" 


~S#,S#/1" 




"SC" 


~S#,S#/0. " 




" sc' 


S#,S#/1777" 


"SC 


"S#,S#/1776" 



r 



o 
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1909 


FE -FE 


; 1910 


FE -FE-1 


; 191 1 


FE FE-19 


; 1912 


FE -FE+S# 


; 1913 


FE FE+SC 


; 1914 


FE FE . AND . S# 


; 1915 


FE P 


; 1916 


FE S 


; 1917 


FE S+2 


; 1918 


FE -S-20 


; 1919 


FE -S-10 


; 1920 


FE S# 


; 1921 


FE S#-FE 


; 1922 


FE -2 


; 1923 


FE -12. 


; 1924 


FE 


; 1925 


FE M 


; 1926 


FE FE+1 


; 1927 


FE FE+2 


; 1928 


FE FE+10 


; 1929 


FE FE-1 


; 1930 


FE FE+4 


; 1931 


FE EXP 


; 1932 


FE SC+EXP 


; 1933 


FE SC-EXP 


; 1934 


FE FE + P 


; 1935 


FE FE-200 


; 1936 


FE -FE+200 


; 1937 


FE_FE+S# 


; 1938 




; 1939 




; 1940 


GEN 17-FE 


; 1941 
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LOAD FE" 

LOAD FE" 
LOAD FE" 
LOAD FE" 



"SCAD/A-B , SCADA/S# , S#/0, SCADB/FE , LOAD FE " 
" SCAD/A-B , SCADA/S# , S#/ 1777 , SCADB/FE , LOAD FE ' 
"SCAD/A+B , SCADB/FE , SCADA/S# , S#/ 1550, LOAD FE * 
"SCAD/A-B , SCADA/S# , SCADB/FE , LOAD FE " 
"SCAD/A+B, SCADA/SC, SCADB/FE, LOAD FE" 
11 SCAD/ A . AND . B , SCAD A/ S# , SCADB/FE , LOAD FE" 
"SCAD/A, SCADA/BYTE 1 , LOAD FE" 
"SCAD/A+B, SCADA/S#, S#/0 ,SCADB/SIZE, 
"SCAD/A+B, SCADA/S#, S#/20 y SCADB/SIZE, 
"SCAD/A-B , SCADA/S# , S#/ 1760, SCADB/SIZE , 
"SCAD/A-B , SCADA/S# , S#/ 1770, SCADB/SIZE , 
"SCAD/A , SCADA/S# , LOAD FE" 
"SCAD/A-B , SCADA/S# , SCADB/FE , LOAD FE " 
"FE_S#,S#/1776" 
"FE_S#,S#/1764" 
"FE_S#,S#/0" 
"FE S#,S#/1777" 

" SCAD/A+B , SCADA/S# , SCADB/FE ,S#/1, LOAD FE " 
"SCAD/A+B , SCADA/S* , SCADB/FE , S#/2 , LOAD FE " 

" SCAD/A+B , SCADA/S* , SCADB/FE , S#/ 10 , LOAD FE ' 
"SCAD/A+B , SCADA/S* , SCADB/FE , S#/ 1 777 , LOAD FE " 
"SCAD/A+B , SCADA/S* , SCADB/FE , S#/4 , LOAD FE " 
" SCAD/A+B , SCADA/S# , S#/0, SCADB/EXP , LOAD FE " 
"SCAD/A+B , SCADA/SC , SCADB/EXP , LOAD FE " 
"SCAD/A-B , SCADA/SC , SCADB/EXP , LOAD FE " 
"SCAD/A+B, SCADA/BYTE 1 , SCADB/FE, LOAD FE" 
" SCAD/A+B , SCADA/S* , Sff/ 1 600 , SCADB/FE , LOAD FE " 
" SCAD/A-B , SCADA/S# , S#/200 , SCADB/FE , LOAD FE " 
"SCAD/A+B , SCADA/S# , SCADB/FE , LOAD FE " 



" SCAD/A-B , SCADA/S# , S#/2 10 , SCADB/FE ' 



\ 
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MICRO 



1942 .TOC "MACROS 
1943 

1944 HOLD LEFT 

1945 ADL PARITY 

1946 CHK PARITY L 
1947 

1948 HOLD RIGHT 

1949 ADR PARITY 

1950 CHK PARITY R 
1951 

1952 AD PARITY 

1953 CHK PARITY 

1954 BAD PARITY 
1955 

1956 INH CRY 1 8 
1957 



-- DATA PATH FIELD CONTROL " 

"CLKL/O, GENL/O" 

"GENL/1" 

"CHKL/1" 

"CLKR/O, GENR/O" 

"GENR/1" 

"CHKR/1" 

"AD PARITY OK/1" 
"CHKL/1 , CHKR/1 " 
"CHKL/0,CHKR/0" 

"SPEC/INHCRY 18 " 
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1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 



.TOC 

ASH 
LSH 

ROT 

LSHC 

ASHC 

ROTC 

ONES 

DIV 



"MACROS 



SHIFT PATH CONTROL" 



"SHSTYLE/NORM" 
"SHSTYLE/NORM" 

" SHSTYLE/ROT " 
"SHSTYLE/LSHC " 
"SHSTYLE/ ASHC " 
" SHSTYLE/ROTC " 
"SHSTYLE/ONES " 
" SHSTYLE/DI V" 



ASH SHIFT 
LSH SHIFT (SAME 
BITS -2 AND -1 



HARDWARE AS ASH BUT 
ARE PRESET TO ZERO) 



SHIFT IN 1 BITS 

SPECIAL PATH FOR DIVIDE (LIKE ROTC BUT 
COMPLEMENT BIT AS IT GOES AROUND) 



T10KI 


.MCR[ 10, 1 141 ] 


KS10.MIC[ 10, 1 141 ] 


1971 


.TOC 


"MACROS 


1972 






1973 


LOAD 


IR 


1974 






1975 






1976 






1977 


LOAD 


INST 


1978 


LOAD 


INST EA 


1979 


LOAD 


BYTE EA 


1980 


LOAD 


IND EA 


1981 


LOAD 


SRC EA 


1982 


LOAD 


DST EA 


1983 


ADD . 


25 


1984 


CALL 


[] 


1985 


LOAD 


PXCT 


1986 


TURN 


OFF PXCT 


1987 


LOAD 


PAGE TABLE 


1988 


LOAD 


AC BLOCKS 


1989 


SWEEP 


1990 


CLRCSH 


1991 


LOAD 


PI 


1992 


SET HALT 


1993 


CLEAR 


CONTINUE 


1934 


CLEAR 


EXECUTE 


1995 


CLEAR 


RUN 


1996 


UNHALT 


1997 


SET APR ENABLES 


1998 


ABORT 


MEM CYCLE 


1999 


CLR 10 BUSY 


2000 


CLR 10 LATCH 


2001 
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•SPEC/LOADIR" 



LOAD INSTRUCTION REG FROM 
DBUS0-DBUS8, LOAD AC# FROM 
DBUS9-DBUS 1 2 

UPDATE LAST-INST-PUBLIC PC FLAG 



"SPEC/LDINST" 

" SPEC/LOADXR , PXCT/CURRENT " 
"SPEC/LOADXR , PXCT/E2 " 
"SPEC/LOADXR, PXCT/E 1 " 
" SPEC/LOADXR, PXCT/BIS-SRC-EA" 
"SPEC/LOADXR, PXCT/BIS-DST-EA" 
"CRY38/1" 
"CALL/ 1 , J/@>1 " 



GENERATE CARRY IN' TO BIT 37 
CALL A SUBROUTINE 
LOAD PXCT FLAGS IF EXEC MODE 



•SPEC/LDPXCT" 
"SPEC/PXCT OFF" 
"SPEC/LDPAGE" 
"SPEC/LDACBLK" 
"SPEC/SWEEP, PHYSICAL/1 " 
"SPEC/CLRCSH, PHYSICAL/1 " 
"SPEC/LDPI" 
"SPEC/#,#/74" 
"SPEC/#,#/40" 
"SPEC/#,#/20" 
"SPEC/#,#/10" 
"SPEC/#,#/62" 
"SPEC/APR EN" 

"DBUS /DBM , RAMADR/VMA , DBM/MEM , AD/ZERO , SPEC/MEMCLR , LOAD VMA » 
"SPEC/CLR 10 BUSY" 
"SPEC/CLR 10 LATCH" 
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2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
201 1 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 



.TOC 
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CHANGE FLAGS 



"SPEC/FLAGS' 



SET AROV "CHANGE FLAGS, HOLD USER/1, 

SET FOV "CHANGE FLAGS, HOLD USER/1, 

SET NO DIVIDE "CHANGE FLAGS, HOLD USER/1, 
SET FL NO DIVIDE "SET NO DIVIDE, SETF0V/1" 



SET0V/1, TRAP 1/ 1 " 
SETF0V/1, TRAP 1 / 1 " 
SET0V/1, SETNDV/1, TRAP 1 / 1 1 



ASH AROV "SPEC/ASHOV" 

SET FPD "CHANGE FLAGS, HOLD USER/1, SETFPD/1" 

CLR FPD "CHANGE FLAGS, HOLD USER/1, CLRFPD/1" 

SET PDL OV "CHANGE FLAGS, HOLD USER/1, TRAP2/1" 

SET TRAP 1 "CHANGE FLAGS, HOLD USER/1, TRAP 1/ 1 " 

LOAD PCU "CHANGE FLAGS, LD PCU/ 1 " 

UPDATE USER "CHANGE FLAGS, HOLD USER/1" 

LEAVE USER "CHANGE FLAGS, HOLD USER/0" 

JFCL FLAGS "CHANGE FLAGS, HOLD USER/1, JFCLFLG/ 1 1 

LOAD FLAGS "CHANGE FLAGS, LD FLAGS/1" 

EXP TEST "SPEC/EXPTST" 

AD FLAGS "CHANGE FLAGS, ADFLGS/1, HOLD USER/1" 

NO DIVIDE "SET NO DIVIDE, J/NIDISP" 

FL NO DIVIDE "SET FL NO DIVIDE, J/NIDISP" 
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MICRO 31(254) 



.TOC 



2031 
2032 

2033 STATE_[ ] 

2034 END STATE 
2035 

2036 END BLT 

2037 END MAP 
2038 



"MACROS PAGE FAIL FLAGS" 



" [ FLG]_# , STATE/@1 , HOLD LEFT' 
"[FLG]__0, HOLD LEFT" 

"END STATE" 
"END STATE" 



KS10 MICROCODE V124, 27-JUL-84 Page 
MACROS -- PAGE FAIL FLAGS 



T10KI .MCR[ 10, 1141] 
KS10.MIC[ 10, 1141] 



1 1 :45 
07: 10 



11- 

27- 



AUG-1984 
JULY- 1984 



MICRO 31(254) 
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2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 



.TOC 



"MACROS 



SKIP IF ACO 
SKIP DPO 
SKIP DP18 
SKIP AD.EO.O 
SKIP AD.LE.O 

SKIP ADL.LE.O 



SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
TXXX 



FPD 

KERNEL 
10 LEGAL 
CRYO 
CRY 1 
CRY2 
JFCL 

ADL.EQ.O 

ADR. EO-0 

IRPT 

-1MS 

AC REF 

EXECUTE 

TEST 



SINGLE SKIPS" 

■SKIP/ACO" 
•SKIP/DPO" 
'SKIP/DP 18" 
»SKIP/ADEQ0,DT/3T 
'SKIP/LE,DT/3T" 

1 SKIP/LLE ,DT/3T" 

■SKIP/FPD" 

'SKIP/KERNEL" 

•SKIP/IOLGL" 

•SKIP/CRYO" 

•SKIP/CRY 1" 

'SKIP/CRY2,DT/3T 

■SKIP/JFCL" 

'SKIP/ ADLEQO " 

'SKIP/ADREQO " 

•SKIP/INT" 

•SKIP/-1 MS" 

'SKIP/ACREF" * 

•SKIP/EXECUTE" 

'SKIP/TXXX" 



SK IPS IF: 

THE AC NUMBER IS ZERO 
DP BIT 0=1 
DP BIT 18=1 

; ADDER OUTPUT IS ZERO 
ADDER OUTPUT IS LESS THAN OR EQUAL 
TO ZERO. 

; ADDER LEFT IS LESS THAN OR EQUAL 

TO ZERO. 
FIRST-PART-DONE PC FLAG IS SET 
USER=0 

USER=0 OR USER I0T=1 
ADDER BIT CRY0=1 (NOT PC FLAG BIT) 
ADDER BIT CRY1=1 (NOT PC FLAG BIT) 

; ADDER BIT CRY2=1 
IF JFCL SHOULD JUMP 
ALU BITS -2 TO 17 = 
ALU BITS 18-35 = 
INTERRUPT IS PENDING 

DON'T SKIP IF 1MS* TIMER HAS EXPIRED. 
VMA IS 0-17 
CONSOLE EXECUTE 
TEST INSTRUCTION SHOULD SKIP 
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KS10.MIC[ 10, 1 141 ] 07:10 27- JULY- 1984 MACROS SPECIAL DISPATCH MACROS 



O nr A 


. T0C 


wAv-KUo — orbOlAL UlbrA 1 On MAtKUb 










MCYT TMCT 

rsit A 1 1 No 1 


•i n t cd /m t rnMn cdct /MTrnMn . i /kit rnwn 
Ulbr/NI uUInU , brtL/Ni IUNU , U/ NiLUNU 


ir\a i 
2UO / 


kirvT TMCT r rTTU 

NfcA 1 INb I r t 1 L»r1 


« n t cd /m t rnMn CDtrr 1 /MTrnwn t /mt rnwn _ cctpuh 
Uxor/ NlUUNU , brtt/ NiLUNU , U/ N1LUNU r b lln 


<.KJK>o 


pa winnp pitcd 


»n t cd /p Aiwnnp DAMAnp / vd^" 

Uxor/ b AMUUC , KAI1AUK/ AKff 




ADCAn 
MKCMU 


"nTQP/ADFan watt/1 aoFAn/i mpm/1 ii/n" 


<c.\J l \J 


r n t c.p 

D U X Or 


•TiT <IP /RHT ^P " 
u x o r / du x o r 


*L\J I I 


DWDTTC nTCD 

dWK lib Llibr 


»D nTCD IUIPM / -f DldDTTP/4 UDTTC OVfl XZ / A .l/DUDTTC" 
d Uxor, m tM/ 1 , tsWKi 1 b/ 1 , WK1 lb LYULt/ l , U/DWK1 1 t 


0A7O 


TMCT HTCD 

x No 1 Uxor 


Uxor/ UK Urn , U / U 


<dU / o 


ryiT 

CAl i 


» DhlD TTC nTCD CDCP / C\ U1D ttc tcct/h II 
tSWKl 1 b UI or , or tt/ U , WKlIb Itbl/i 


2074 


a p\ r~ i « /-> r* rv TT 

AD FLAGS EaIT 


HDhinTTC nTCD i.i n t t tr tcct / r\ a n c i a /~» c n 

BWRITE DISP, WRITE rboT/O, AD FLAGS 


2075 


FL-EXIT 


"WRITE CYCLE/ 1 , WRITE TEST/ 1 , MEM/ 1 , BWRITE/ 1 ,B DISP , J/FL-BWRITE " 


2076 


TEST DISP 


"B DISP , J/TEST-TABLE " 


2077 


SKIP-C0MP DISP 


"B DISP , J/SKIP-COMP-TABLE " 


2078 


JUMP DISP 


it n r\ t r> t / ii iftnr\ *T" a n i i— ii 

B DI 5P , J/ ^JUMP-TABLE 


2079 


DONE 


" VMA_L PC J , LOAD VMA , FETCH, NEXT INST FETCH" 


2080 


II IK/IDA 

UUJVIrA 


ii r np i Tad! un in icct i n a n \/m a cctpu mcvt tmct cctpu h 
tru J |.AkJ,HULU Lbrl. , LUAU VMA , r b 1 Ln , Nb A 1 INo 1 r t t LH 


0/~\0 A 


i ii in 
UUU 


it r ii d i * ruDl a Kin u tt / iiii Af\ t-ini n dtput . i /i u inpn « 
L nK J t J . ANU . ft , ft / f i I / Q\J , riULU K x van 1 , u/ UUUvaU 




i i it in 
LUUU 


ii r a d 1 r\ Yun F/iAl . i / 1 i ii in -\ » 

[ AK J VJ AWU t. t+KJ J , U/LUUUl 


ZUoo 


n»rr pati tdad 
KAut r A x L 1 hAr 


ii T 1 r P 1 O 1 PI/2DT/4 . | / d PT » 
1 L L«i-VaJ, rLva.rl/l, U/rrl 




TAtfP TNITPPPMPT 
IAISC ilMI CKKUr 1 


••rpirsl r f i 1 no a pifi PT/i Hn in p t a\-iT ,i/pt " 

J.rL_vaJ L r L\3 J • UK . rr , r Lu. r 1/ 1, nULU KXVar1l,U/rX 




TMTPPPIIPT TPAP 
UN 1 CKKUr 1 1 K A r 


"u/npi^r<^\/ adI Tap! ,i/ttpap" 

WUK^l oV . AK J [ AK J , U/ 1 ! KAr 


onoc 


Ml II DTCD 

mUL Ulbr 


ii n T CD /Ml II ii 
U x or / WUL 


or\Q*7 


nru nTCD 
U x V Uxor 


•■nTCD /n t \/ ii 
U Lor / U Lv 


ono o 
<£Uoo 


DVTC nTCD 

Q Y 1 b U x or 


Ulor/DYIb, Ul/ol 




crAn nTCD 

oVj-AU Uxor 


H nTQD /CPAnrt" -CUfTP M/C U/PTPI-ITl tc cpAn TQ MTMIIC 
Ulbr/bl/AUU , bMr V «t o Wtlbn 1 ^ Xo bUAU lo WilMUo 


2090 


RETURN [ ] 


"DI SP/RETURN , J/@1 " 


2091 


PI DISP 


"DISP/PI " 


2092 


NORM DISP 


"DISP/N0RM,DT/3T" 


2093 


DISMISS 


"TR [PI], #/077400, CALL [ JEN 1 ] , DT/3T " 


2094 


CALL LOAD PI 


"[TO] [PI] SWAP , CALL [ LDPI 2 ] " 


2095 


HALT [] 


" AD/47 , DEST/AD , B/T 1 , DBM/ # , DBUS/DBM , HALT/@ 1 , RSRC/DA , A/MASK , J/HALTED " 


2096 


CLEANUP DISP 


"READ [FLG], DBUS/DP , DISP/DP, 3T , J/CLEANUP" 


2097 







n 
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2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
21 10 
211 1 
2112 
2113 
2114 
2115 
21 16 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 



.TOC 



11:45 11-AUG-1984 
07: 10 27-UULY-1984 

"DISPATCH ROM MACROS " 



MICRO 31(254) 
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DISPATCH ROM MACROS 
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. DCODE 



"A FIELD" MACROS SAY HOW TO FETCH ARGUMENTS 



I 

I-PF 
R 

R-PF 
W 

RW 
IW 
IR 

DBL R 

DBL AC 

SH 

SHC 

FL-R 

FL-RW 

FL-I 

DBL FL- 

IOT 



"1/1" 

"1/1 , VMA/O, READ/ 1" 
"A/READ, READ/1" 
"A/RD-PF, READ/1" 
"A/WRITE, TEST/1 " 
" A/READ, TEST/ 1 , READ/ 1" 

"1/1 , TEST/1" ; IMMED WHICH STORE IN E. (SETZM, ETC.) 
" 1/1, READ/ 1" ; START READ A GO TO EXECUTE CODE 



; AR ! ARX 



E!E+1 



"A/DREAD, READ/ 1" 
"A/DBLAC" 

"A/SHI FT , VMA/O, READ/ 1 " 

" A/DSHI FT , VMA/O, READ/1 " 

"A/FP, READ/1 " ; FLOATING POINT READ 

"A/FP, READ/1 , TEST/1" 

"A/FPI , READ/0" ; FLOATING POINT IMMEDIATE 
R "A/DFP, READ/1 " 
"A/IOT" ;CHECK FOR 10 LEGAL 



; "B FIELD" MACROS SAY HOW TO 5T0RE RESULTS 



AC "B/AC" 

M "B/MEM , TEST/ 1 , COND FUNC/1" 

B "B/BOTH, TEST/ 1 , COND FUNC/1" 

S "B/SELF, TEST/ 1 , COND FUNC/1" 

DAC "B/DBLAC" 

DBL B "B/DBLB, TEST/ 1 , COND FUNC/1" 

FL-AC "FL-B/AC" 

FL-MEM "FL-B/MEM, TEST/1 , COND FUNC/1" 

FL-BOTH "FL-B/BOTH, TEST/1 , COND FUNC/1 ' 

ROUND " ROUND/ 1" 



FLOATING POINT 
FLOATING POINT TO MEMORY 
FLOATING POINT TO BOTH 
FLOATING POINT ROUNDED 



;CONTROL BITS 
W TEST "TEST/1" 
AC DISP "ACDISP/1" 
.UCODE 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 . MICRO 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27- JULY- 1984 



U 0000 
U 0002 
U 0013 
U 0021 
U 0026 



223-781 


u 


0053 


t 
a 


u 


0003 


1 
o 


u 
u 


0061 
0071 




u 


0100 



U 0106 

U 0110 

U 0125 
U 0135 

U 0136 
U 0162 
U 0212 
U 0214 
U 0223 
U 0225 
U 0235 
U 0242 

U 0010 
U 0012 
U 0244 
U 0311 

U 0260 
U 0261 



0002 , 377 1 , 00 1 2 , 4374 , 4007 , 0700 , 0000 , 0037 ,7777 
00 13, 3445, 1212, 4174, 4007, 0700 , 0000 , 0000 , 0000 
0021 ,3551 , 1212,4374,4007,0700,0000,0000,0001 
0026 , 3447 , 1 200 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 
0053 ,3771, 00 15, 4374, 4007 , 0700 , 0000 , 0000 , 000 1 



0003 ,4751,1 207 , 4374 , 4007 , 0700 , 00 1 , 0000 , 000 1 

0061 ,4751 , 1203,4374,4007,0700,0000,0037,6000 

007 1,3333, 0003 , 7 1 74 , 4007 , 0700 , 0400 , 0000 ,0227 
0100,4221 ,001 1 ,4364,4277,0700,0200,0000,0010 

O 106 , 422 1 , 00 10 , 4 1 74 , 4477 , 0700 , 0000 , 0000 , 0000 

0110, 4221, 00 13, 41 74, 4257, 0700 , 0000 , 0000 , 0000 
O 1 25 , 3333 , 00 1 3 , 7 1 74 , 4007 , 0700 , 0400 , 0000 , 0230 



0135,3333 
0136,3333 



0162, 
0212, 
0214, 
0223, 
0225, 
0235, 
0242, 
0010, 



4223, 
3333, 
4221 , 
3333, 
4223, 
3771 , 
3771 , 
01 1 1 , 



0560,3771 
0244,3333 
031 1 ,01 1 1 
0260,3333 

0242,4443 
0140,6553 



,0013 
,0013 

,0000 
,0007 
,0003 
,0007 
,0000 
,0002 
,0006 
,0706 

,0004 
,0005 
,0702 
,0004 

,0000 
,0500 



7174,4007 
7174,4007 



, 0700 , 0400 , 0000 , 0300 
, 0700 , 0400 , 0000 , 030 1 



1 174 
, 1 174 
4174 
7174 
7174 
4374 
4374 
4174 



4007, 
4007 , 
4007 , 
4007 , 
4007 , 
4007, 
4007, 
4007 , 



0700, 
0700, 
0700, 
0700. 
0700, 
0700, 
0700, 
0700, 



0400 
0400 
2000 
0400 
0400 
0000 
0000 
0200 



0000, 
0000 , 
007 1 , 
0000 , 
0000. 
0000, 
0000, 
0000, 



1443 
1444 
0023 
0344 
0373 
0344 
0373 
0010 



1276,6007 
6174,4007 
4174,4007 
6174, 4007 

4174,4007 
4374,4007 



,0701 ,0010,0000, 1444 
, 0700 , 0400 , 0000 , 0000 
, O70O , 0200 , 0000 , 00 1 
, 0630 , 2400 , 0060 , 0000 

, 0700 , 0000 , 0000 , 0000 
, 032 1 , 0000 , 0033 , 0656 



U 0140, 0104,4751,1217,4374,4007,0700,0000,0000,1005 



r 



254) 



2140 
2141 
214-2 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
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DISPATCH ROM MACROS 

.BIN 

.TOC "POWER UP SEQUENCE" 
.UCODE 

; HERE IS WHERE WE FIRE THE MACHINE UP DURING POWER ON 



0: [MASK]_#, #/377777 

[MASK]_[MASK]*2 
[ MASK ]_[ MASK] . OR. #, #/1 
[MAG]_[MASK]*.5 
[XWD1]_#, #/1 

[ONE]_0 XWD [1], 
CALL/1 

3: [AR]_0 XWD [376000] 



W0RK[TIME0]_[FLG] 
WORK [TIME 1 ]__[ FLG] 

.IF/FULL 

AC[BINO]_0 

AC[BIN1 ]_1 

[AR]_0, SCJ9. 

W0RK[DECL0]_1 

WORK[DECHI]_0 

[HR]_#, WORK/DECLO 

[BRX]_#, WORK/DECHI 
TENLP: [BRX]_[BRX]+1 , LOAD VMA 
=0* [ARX]_AC[BIN1], 

CALL [DBSLOW] 

RAM_[BR] 

[HR]_[HR]+1, LOAD VMA 
RAM_[ ARX ] , STEP SC 

=0 



=0**0 HALT [MULERR] 
. ENDI F/FULL 



BUILD A MASK WITH 
A ONE IN 36-BITS AND 
IN BITS -2,-1,36,37 

MAKE CONSTANT 

CONSTANT WITH 1 IN EACH 
HALF WORD 

THE CONSTANT 1 

RESET STACK (CAN NEVER RETURN 

TO WHERE MR LEFT US) 
ADDRESS OF HALT STATUS 

BLOCK 
SAVE FOR HALT LOOP 
; CLEAR THE UBR AND RESET 

MEMORY CONTROL LOGIC 
CLEAR THE EBR AND FORCE 

PREVIOUS AND CURRENT AC 

BLOCKS TO ZERO 
; CLEAR THE STATUS FLAGS AND 

DISABLE ALL APR CONDITIONS 
ZERO REMEMBERED ENABLES 

CLEAR TIME BASE 



COMPUTE A TABLE OF POWERS OF 
TEN 

WE WANT TO GET 22 NUMBERS 
STARTING WITH 1 

ADDRESS OF LOW WORD 
ADDRESS OF HIGH WORD 
ADDRESS THE HIGH WORD 
LOW WORD TO ARX 
MULTIPLY BY TEN 
SAVE HIGH WORD 
WHERE TO STORE LOW WORD 
STORE LOW WORD AND SEE IF 

WE ARE DONE 
NOT YET- -KEEP GOING 
EO.O, 0/33O656 
DID WE GET THE RIGHT ANSWER 

IN THE TOP 18 BITS? 
NO- -CPU IS BROKEN 



WORK [HSB ADR ]_[ AR] 
[UBR]_0, ABORT MEM CYCLE 

[EBR]_0, LOAD AC BLOCKS 

[FLG]_0, SET APR ENABLES 
WORK[APR]__[FLG] 



J/TENLP 
[BR].XOR.#, 3T, SKIP ADL 




; T10KI.MCR[10, 1141] 11:45 11-AUG-1984 MICRO 31 

; SIMPLE. MIC[ 10, 1141] 15:31 27- JULY- 1984 

U 0141, 3507,4221,0014,4174,4007,0700,0010,0000,0000 



U 0151, 0323,4751,1217,4374,4007,0700,0000,0000,0120 



U 0323, 0324,4221,0001,4174,4467,0700,0000,0000,0004 
U 0324, 0116,3771,0017,4374,4007,0700,0000,0000,0000 



254) 
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2193 
2194 
2195 
;2196 
;2197 
;2198 
;2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
;2209 
;2210 
;2211 
;2212 
;2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 



=0** 1 
= 1**1 



[PI]_0, CALL [LOADPI] 



. IFNOT/FULL 

[ARX]_0 

[BR]_0 

[BRX]_0 
. ENDI F/FULL 

[T1 ]_0 XWD [ 120] 



CLEAR PI STATE 

CLEAR REGISTERS SO NO 

PARITY ERROR HAPPEN 

; WRITTEN WHILE COMPUTING POWERS 
;0F 10 



RH OF 120 CONTAINS START ADDRESS 
FOR SIMULATOR. FOR THE REAL 
MACHINE IT IS JUST DATA WITH 
GOOD PARITY. 



; THE CODE UNDER .IF/SIM MUST USE THE SAME ADDRESS AS THE CODE 
; UNDER .IFNOT/SIM SO THAT MICROCODE ADDRESSES DO NOT CHANGE BETWEEN 
; VERSIONS 
.IF/SIM 



VMA 
MEM' 



[T1], 
READ, 



START READ ; 
[PC]_MEM, HOLD 



. IFNOT/SIM 

[PC]_0, 

LEAVE USER, 

LOAD FLAGS 

[T1]_#, HALT/POWER, 

J/PWRON 

. ENDI F/SIM 



READ THE WORD 
LEFT, J/START 

GO FIRE UP SIMULATOR AT THE 
PROGRAMS STARTING ADDRESS 

CLEAR LH OF PC 
ENTER EXEC MODE 
CLEAR TRAP FLAGS 
LOAD T1 WITH POWER UP CODE 
ENTER HALT LOOP. DO NOT STORE 
HALT STATUS BLOCK 



T10KI.MCR[10, 1141] 11:45 11-AUG-1984 MICRO 
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U 1400, 01 10,3443,0100,4174,4156,4700,0200,0014,0012 

U 1401, 0110,0111,0701,4170,4156,4700,0200,0014,0012 

U 0372, 0110,0111,0701,4170,4156,4700,0200,0014,0012 

U 0373, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



| U 0101, 3377,4751,1203,4374,4367,0700,0000,0000,0423 

I 

1 U 0102, 3377,4751,1203,4374,4367,0700,0000,0000,0422 

I 

| U 0103, 3377,4751,1203,4374,4367,0700,0000,0000,0421 

I U 0105, 0104,4751,1217,4374,4007,0700,0000,0000,0002 

I 
I 



U 0107, 0117,3443,0100,4174,4007,0700,0200,0014,0012 



U 0111, 3377,4751 , 1203,4374,4367,0700,0000,0000,0423 
U 01 12, 3377,4751 , 1203,4374,4367,0700,0000,0000,0422 



U 01 13, 3377,4751 , 1203,4374,4367,0700,0000,0000,0421 
U 0115, 0104,4751,1217,4374,4007,0700,0000,0000,0002 



U 01 17, 0334,3771 ,0002,4365,5617,0700,0200,0000,0002 



V / 
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THE INSTRUCTION LOOP -- START NEXT INSTRUCTION 

2223 .TOC "THE INSTRUCTION LOOP START NEXT INSTRUCTION" 
2224 

2225 ; ALL INSTRUCTIONS EXCEPT JUMP'S AND UUO'S END UP HERE 

2226 1400: 

2227 DONE: DONE 

2228 1401: VMA_JPC] + 1, NEXT INST FETCH, FETCH 

2229 =0 

2230 SKIP: VMA_[PC]+1, NEXT INST FETCH, FETCH 

2231 DONE 
2232 

2233 

2234 ; 16-WAY DISPATCH BASED ON NEXT INSTRUCTION 

2235 =0000 

2236 NICOND: 



2237 =0001 [AR] XWD [423], ; TRAP TYPE 3 

2238 ; GET ADDRESS OF TRAP INST 

2239 TURN OFF PXCT , ; CLEAR PXCT 

2240 J/TRAP ;PROCESS TRAP (INOUT.MIC) 

2241 =0010 [AR]_0 XWD [422] , ; TRAP TYPE 2 

2242 TURN OFF PXCT, ; CLEAR PXCT 

2243 J/TRAP ;G0 TRAP 

2244 =0011 [AR]_0 XWD [421], ; TRAP TYPE 1 

2245 TURN OFF PXCT, ; TURN OF PXCT 

2246 J/TRAP ; GO TRAP 

2247 =0101 HALT [CSL] ; "HA" COMMAND TO 8080 

2248 =0111 

2249 START: VMA [PC], ; LOAD VMA 

2250 FETCH, ; INDICATE INSTRUCTION FETCH 

2251 J/XCTGO ;G0 GET INSTRUCTION 

2252 ; THE NEXT SET OF CASES ARE USED WHEN THERE IS A FETCH 

2253 ; IN PROGESS 

2254 =1000 

2255 NICOND-FETCH: 

2256 =1001 [AR]_0 XWD [423], ; TRAP TYPE 3 

2257 TURN OFF PXCT, 

2258 J/TRAP 

2259 =1010 [AR]_0 XWD [422], ; TRAP TYPE 2 

2260 TURN OFF PXCT, 

2261 J/TRAP 

2262 =1011 [AR]_0 XWD [421], ; TRAP TYPE 1 

2263 TURN OFF PXCT, 

2264 J/TRAP 

2265 =1101 HALT [CSL] ; "HA" COMMAND TO 8080 

2266 =1111 

2267 XCTGO: MEM READ, ;WAIT FOR MEMORY 

2268 [HR]_MEM, ; PUT DATA IN HR 

2269 LOAD INST, ; LOAD IR & AC # 

2270 J/INCPC ;G0 BUMP PC 



2271 = 
2272 



T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



U 0334, 0201,0111,0701,2170,4366,6700,0200,0010,0010 



U 0201, 0110,0551,0201,2270,4156,4700,0200,0014,0012 



U 0203, 0110,3441,0201,4170,4156,4700,0200,0014,0012 



U 0205, 0343,0551,0202,2270,4007,0700,0200,0004,0012 



U 0207, 0343,3443,0200,4174,4007,0700,0200,0004,0012 



254) 
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2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
22&3 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 



; HERE WE POINT PC TO NEXT INSTRUCTION WHILE WE WAIT FOR 
; EFFECTIVE ADDRESS LOGIC TO SETTLE 



INCPC: VMA_[PC]+1 , 
FETCH/1 , 
TURN OFF PXCT, 
EA MODE DISP 



ADDRESS OF NEXT INSTRUCTION 
INSTRUCTION FETCH 
CLEAR EFFECT OF PXCT 
DISPACTH OF INDEXING AND * 



; MAIN EFFECTIVE ADDRESS CALCULATION 

=0001 

EACALC: 

THE FIRST 4 CASES ARE USED ONLY FOR JRST 



;CASE O -- JRST O.FOO(XR) 
[PC]_[HR]+XR, 
HOLD LEFT, 
LOAD VMA, FETCH, 
NEXT INST FETCH 



;CASE 2 -- JRST 0, 
[PC]_[HR], 
HOLD LEFT, 
LOAD VMA, 
NEXT INST 



FOO 



FETCH, 
FETCH 



;CASE 4 JRST 0,@FOO(XR) 
[HR]_[HR]+XR, 
START READ, 
LOAD VMA, 
J/FETIND 

;CASE 6 -- JRST 0,@FOO 
VMA_[HR ] , 
START READ, 
J/FETIND 



UPDATE PC 
ONLY RH 

START GETTING IT 
START NEXT INST 



NEW PC 
ONLY RH 

START GETTING IT 
START NEXT INST 



ADD IN INDEX 

START TO FETCH * WORD 

PUT ADDRESS IN VMA 

GO DO MEM WAIT (FORGET ABOUT JRST) 



LOAD UP ADDRESS 

START TO FETCH @ WORD 

GO DO MEM WAIT (FORGET ABOUT JRST) 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 31(254) 

SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 
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U 02 1 1 , 02 1 3 , 055 1 , 0202 , 2270 , 4007 , 0700 , 0000 , 0000 , 0000 



U 0213, 0000,5741,0203,4174,4001,3700,0200,0000,0342 



U 0215, 0343,0551,0202,2270,4007,0700,0200,0004,0112 



U 0217, 0343,3443,0200,4174,4007,0700,0200,0004,0112 



U 0343, 0346,3771,0002,4361,5217,0700,0200,0000,0102 



U 0346, 0201,3443,0100,2174,4006,6700,0200,0010,0010 



2310 

231 1 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 



THESE 4 ARE FOR THE NON-JRST CASE 



;CASE 10 -- JUST INDEXING 
INDEX: [HR]_[HR]+XR, 
HOLD LEFT 



; ADD IN INDEX REGISTER 
;UUST DO RIGHT HALF 



;CASE 
NOMOD : 



12 



NO INDEXING OR INDIRECT 



[AR]_EA, 
PXCT DATA, 



AREAD 



PUT O, ,E IN AR 

DO ONE OR MORE OF THE FOLLWING 
ACCORDING TO THE DROM: 

1. LOAD VMA 

2. START READ OR WRITE 

3. DISPATCH TO 40-57 

OR DIRECTLY TO EXECUTE CODE 



;CASE 14 
BOTH: 



BOTH INDEXING AND INDIRECT 



[HR]_[HR]+XR, 
LOAD VMA, PXCT EA , 
START READ, J/FETIND 



;CASE 16 -- JUST INDIRECT 
INDRCT: VMA_[HR], 

START READ, PXCT EA 



; HERE TO FETCH INDIRECT WORD 
FETIND: MEM READ, [HR]_MEM, 

HOLD LEFT, 

LOAD IND EA 

XCT2: VMA_[PC], 
FETCH/1 , 
EA MODE DISP, 
J/EACALC 



ADD IN INDEX REGISTER 

PUT ADDRESS IN VMA 

START CYCLE AND GO WAIT FOR DATA 



; LOAD ADDRESS OF P WORD 
; START CYCLE 



; GET DATA WORD 

;JUST RIGHT HALF 

; RELOAD 9 AND INDEX FLOPS 

;PUT PC BACK IN VMA 
; TURN ON FETCH FLAG 
; REDO CALCULATION FOR 
; NEW WORD 



o 

; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; SIMPLE . MIC [ 10, 1 141 ] 15:31 27-JULY-1984 



U 0040, 0000,3771,0003,4365,5001,2700,0200,0000,0002 

U 0041, 0000,3771,0003,0276,6001,2700,0000,0000,0000 

U 0042, 0363,3771,0003,4365,5007,0700,0200,0000,0002 

U 0363, 0366,0111,0702,4170,4007,0700,0200,0004,0312 

U 0366, 0000,3771,0004,4365,5001,2700,0200,0000,0002 

U 0043, 0371,3771,0003,0276,6007,0700,0000,0000,0000 

U 0371, 0000,3771,0004,1276,6001,2701,0000,0000,1441 



U 0044, 0000,3333,0003,4174,4001,2530,3000,0041,5777 



U 0045, 0401,3772,0000,1275,5007,0701,0000,0000,1441 
U 0401, 0406,3776,0005,0274,4007,0701,0000,0000,0000 



U 0406 , 0044 , 3446 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



11(254) 



2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
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„TOC "THE INSTRUCTION LOOP -- FETCH ARGUMENTS " 

; HERE ON AREAD DISP TO HANDLE VARIOUS CASES OF ARGUMENT FETCH 



;CASE -- READ (E) 
40: MEM READ, 

[AR]_MEM, 

INST DISP 

;CASE 1 -- WRITE (E) 
41: [AR]_AC, 
INST DISP 

;CASE 2 -- DOUBLE READ 
42: MEM READ, 

[AR]_MEM 

VMA_[HR]+1, PXCT DATA, 
START READ 
MEM READ, 
• [ARX]_MEM, 
INST DISP 

;CASE 3 -- DOUBLE AC 
43: [AR]_AC 

[ARX]_AC[ 1 3 , 

INST DISP 



;CASE * 
44: 

SHIFT: 



;CASE 
45: 



SHIFT 

READ [AR], 
SKIP DP18, 
SC_SHIFT-1 , 
LOAD FE, 
INST DISP 

5 SHIFT COMBINED 
Q_AC[1] 

[BR]_AC*.5 LONG 
[BR]_[BR]*.5 LONG, 
J/SHIFT 



WAIT FOR DATA 

PUT WORD IN AR 

GO TO EXECUTE CODE 



;PUT AC IN AR 

;G0 TO EXECUTE CODE 



WAIT FOR DATA 
PUT HI WORD IN AR 
POINT TO E+1 
START MEMORY CYCLE 
WAIT FOR DATA 
LOW WORD IN ARX 
GO TO EXECUTE CODE 



GET HIGH AC 

PUT C(AC+1) IN ARX 

GO TO EXECUTE CODE 



LOOK AT EFFECTIVE ADDRESS 

SEE IF LEFT OR RIGHT 

PUT NUMBER OF PLACES TO SHIFT IN 

SC AND FE 
GO DO THE SHIFT 



PUT LOW WORD IN 
PUT AC IN BR & SHIFT BR ! Q RIGHT 
SHIFT BR!0 1 MORE PLACE RIGHT 
GO DO SHIFT SETUP 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
; SIMPLE. MICE 10, 1 141 ] 15:31 27-JULY-1984 

U 0046, 0402,3770,0303,4344,4007,0700,0000,0000,0000 

U 0047, 0402,3771,0003,4365,5007,0700,0200,0000,0002 

U 0402, 0434,3333,0003,4174,4007,0520,3010,0041,2000 
U 0403, 0000,4221,0004,4174,4001,2700,0000,0000,0000 

U 0050, 0000,3770,0103,4365,5001,2700,0200,0014,0012 

U 0051, 0404,3771,0005,4365,5177,0521,3000,0041,2000 
U 0404, 0431,0111,0703,4174,4007,0700,0200,0004,0312 

U 0405, 0416,01.11,0703,4174,4007,0700,0200,0004,0312 

U 0416, 0432,3551,0505,4374,0007,0700,0000,0077,7000 
U 0431, 0432,4551,0505,4374,0007,0700,0000,0000,0777 

U 0432, 0445,4557,0004,4365,5007,0701,0200,0000,0002 
U 0445, 0451,3447,0503,4174,4007,0700,0000,0000,0000 

U 0451, 0452,3447,0303,4174,4007,0700,2000,0011,0000 
U 0452, 0000,3443,0100,4174,4001,2700,0200,0014,0012 
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2387 ;CASE 6 FLOATING POINT IMMEDIATE 

2388 46: [ AR]_[ AR] SWAP, ;FLIP BITS TO LEFT HALF 

2389 J/FPRO ;JOIN COMMON F.P. CODE 
2390 

2391 ;CASE 7 FLOATING POINT 

2392 47: MEM READ, ;WAIT FOR MEMORY (SPEC/MEM WAIT) 

2393 [AR]_MEM ; DATA INTO AR 

2394 =0 

2395 FPRO: READ [AR], ; LOOK AT NUMBER 

2396 SC_EXP, FE_EXP, ; PUT EXPONENT IN SC & FE 

2397 SKIP DPO, ;SEE IF NEGATIVE 

2398 CALL [ARSIGN] ; EXTEND AR SIGN 

2399 FPR1: [ARX]_0, ;ZEROARX 

2400 INST DISP ;G0 TO EXECUTE CODE 
2401 

2402 ;CASE 10 -- READ THEN PREFETCH 

2403 50: MEM READ, ;WAIT FOR DATA 

2404 [AR]_MEM THEN FETCH, ; PUT DATA IN AR AND START A READ 

2405 ; VMA HAS PC+1 . 

2406 INST DISP ; GO DO IT 
2407 

2408 ;CASE 11 -- DOUBLE FLOATING READ 

2409 51: SPEC MEM READ, ;WAIT FOR DATA 

2410 [ BR ]_MEM , ; HOLD IN BR 

2411 SC_EXP, FE_EXP, ; SAVE EXPONENT 

2412 SKIP DPO, 3T ;SEE IF MINUS 

2413 =0 [AR]_[AR]+1 , ;POINT TO E+1 

2414 LOAD VMA, PXCT DATA, ; PUT IN VMA 

2415 START READ, J/DFPR1 ;G0 GET POSITIVE DATA 

2416 [AR]_[AR]+1, ;POINT TO E+1 

2417 LOAD VMA, PXCT DATA, ; PUT IN VMA 

2418 START READ ; GO GET NEGATIVE DATA 

2419 [BR]_-SIGN, ; SMEAR MINUS SIGN 

2420 - J/DFPR2 ; CONTINUE BELOW 

2421 DFPR1: [BR]_+SIGN ; SMEAR PLUS SIGN 

2422 DFPR2: MEM READ, 3T , ;WAIT FOR MEMORY 

2423 [ARX]_(MEM. AND. [MAG])*. 5, 

2424 ASH ;SET SHIFT PATHS 

2425 [AR]_[BR]*.5 ;SHIFT AR 

2426 [AR]_[AR]*.5, ; COMPLETE SHIFTING 

2427 SC_FE ; PAGE FAIL MAY HAVE ZAPPED 

2428 ; THE SC. 

2429 VMA_[PC], FETCH, ; GET NEXT INST 

2430 INST DISP ; DO THIS ONE 
2431 



T10KI ,MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

SIMPLE . MIC [ 10, 1 141 ] 15:31 27- JULY- 1984 



MICRO 31(254) 



U 0052, 0414,4443,0000,4174,4007,0040,0000,0000,0000 
U 0414, 2621 ,4551 ,0202,4374,0007,0700,0000,0077,7740 
U 0415, 0000,4443,0000,4174,4001,2700,0000,0000,0000 



U 0434, 0001,4551,0303,4374,0004,1700,0000,0000,0777 
U 0435, 0001,3551,0303,4374,0004,1700,0000,0077,7000 



2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
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;CASE 12 -- TEST FOR 10 LEGAL 
52: SKIP 10 LEGAL 

=0 UUO 

INST DISP 



;CASE 13 -- RESERVED 
;53: 

;CASE 14 RESERVED 
;54: 

;CASE 15 -- RESERVED 
;55: 

;CASE 16 RESERVED 
;56: 

;CASE 17 -- RESERVED 
;57: 

; EXTEND AR SIGN. 
; CALL WITH SKIP ON ARO, RETURNS 1 ALWAYS 

=0 

ARSIGN: [AR]_+SIGN, RETURN [1] ; EXTEND + SIGN 
[AR]_-SIGN, RETURN [1] ; EXTEND - SIGN 



IS 10 LEGAL? 
NO 

YES- -DO THE INSTRUCTION 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



U 1504, 0454,4443,0000,4174,4007,0360,0000,0000,0000 



U 1505, 1515,3440,0404, 1 174,4007,0700,0400,0000, 1441 



U 1 506 , 1 505 , 3333 , 0003 ,4175, 5007 , 0701 , 0200 , 0000 , 0002 



(254) 
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2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 



.TOC "THE INSTRUCTION LOOP STORE ANSWERS" 

; NOTE : INSTRUCTIONS WHICH STORE IN BOTH AC AND MEMORY 

; (E.G. ADDB, AOS) MUST STORE IN MEMORY FIRST 

; SO THAT IF A PAGE FAIL HAPPENS THE AC IS 

; STILL INTACT. 



1500: 
BWRITE: 

;CASE 
; 1500: 

;CASE 1 
; 1501 : 

;CASE 2 
; 1502: 

;CASE 3 
; 1503: 

;CASE 4 

1504: 

STSELF: 



;CASE 5 

1505: 

DAC: 



;CA5E 6 

1506: 

STDBTH: 



; BASE ADDRESS OF BWRITE DISPATCH 
-- RESERVED 

RESERVED 

RESERVED 

-- RESERVED 



-- STORE SELF 

SKIP IF ACO, 
J/STBTH1 

STORE DOUBLE AC 

AC[1]_[ARX], 
U/STAC 



;IS AC # ZERO? 

;G0 TO STORE BOTH CASE 



; STORE AC 1 
;G0 STORE AC 



STORE DOUBLE BOTH (KA10 STYLE MEM AR ONLY) 



;CASE 7 
; 1507: 



MEM WRITE, 
MEM_[AR] , 
J/DAC 

-- RESERVED 



WAIT FOR MEMORY 
STORE AR 

NOW STORE AC & AC+1 



o 

; T10KI.MCR[10, 1141] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 1514, 0104,4751,1217,4374,4007,0700,0000,0000,1000 

U 1515, 0100,3440,0303,0174,4156,4700,0400,0000,0000 

U 1516, 1 400 ,3333, 0003 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 

U 1517, 1515,3333, 0003 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 

U0454, 1515,3333, 0003 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 

U 0455 , 1 400 , 3333 , 0003 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 
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2500 


; CASE 


10 -~ RESERVED 




2501 


; 1510: 






2502 








2503 


;CASE 


11 RESERVED 




2504 


; 151 1 : 






2505 








2506 


;CASE 


12 RESERVED 




2507 


; 1512: 






2508 








2509 


;CASE 


13 -- RESERVED 




2510 


; 1513: 






251 1 








2512 


;CASE 


14 RESERVED 




2513 


1514: 






2514 


FL-BWRITE : 


; THE NEXT 4 CASES ARE ALSO 


2515 




;USED IN FLOATING POINT 


25 16 




HALT [BW14] 




2517 








2518 


;CASE 


15 -- STORE AC 


• 


2519 


1515 : 






2520 


STAC : 


AC [AR], 


; STORE AC 


2521 




NEXT INST 


;D0 NEXT INSTRUCTION 


2522 








2523 


;CASE 


16* STORE IN MEMORY 




2524 


1516: 






2525 


STMEM: 


MEM WRITE, 


;WAIT FOR MEMORY 


2526 




MEM [AR], 


.STORE AR 


2527 




J/DONE 


; START FETCH OF NEXT 


2528 








2529 


;CASE 


17 -- STORE BOTH 




2530 


1517: 






2531 


STBOTH 


: MEM WRITE, 


WAIT FOR MEMORY 


2532 




MEM [AR], 


STORE AR 


2533 




J/STAC 


NOW STORE AC 


2534 








2535 


=0 






2536 


STBTH1 


: MEM WRITE, 


WAIT FOR MEMORY 


2537 




MEM [AR], 


STORE AR 


2538 




J/STAC 


NOW STORE AC 


2539 


STORE: 


MEM WRITE, 


WAIT FOR MEMORY 


2540 




MEM [AR], 


STORE AC 


2541 




. J/DONE 


START NEXT INST 


2542 









T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27- JULY- 1984 



D 0200, 
D 0201, 
D 0202, 
D 0203, 

D 0204, 
D 0205, 
D 0206, 
D 0207, 



0210, 
021 1 , 
0212, 
0213, 

0214, 
0215, 
0216, 
0217, 



U 1402, 
U 1403, 
U 1404, 



1015, 
0015, 
01 16, 
0004, 

1015, 
0015, 
01 16, 
0004, 

1015, 
0015, 
0116, 
0004, 

1015, 
0015, 
01 16, 
0004, 



1515, 
1515, 
1404. 
1504, 

1402, 
1402, 
1402, 
1402, 

1405, 
1405, 
1405. 
1405, 

1403. 
1515, 
1403, 
1403, 



, 1 100 
,3000 
,0700 
, 1700 

, 1 100 
,3000 
,0700 
, 1700 

, 1 100 
,3000 
,0700 
, 1700 

, 1 100 
,3000 
,0700 
, 1700 



1 500 , 3770 , 0303 , 4344 , 4003 , 7700 , 0200 , 0003 , 000 1 
1 404 , 3333 , 0003 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 
1 500 , 4443 , 0000 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 



U 1405, 1404,2441 ,0303,4174,4467,0701 ,4000,0001 ,0001 
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. TOC 


"MOVE 


GROUP " 








<£. £J*t*t 


















. DCODE 










2546 


200 : 


R-PF , 


AC , 


J/STAC 




;MOVE 


2547 




I -PF , 


AC , 


J/ STAC 




;MOVEI 


2548 




w , 


M , 


J/MOVE 




;MOVEM 


2549 




RW , 


S , 


J/STSELF 




*, MOVES 


2550 














2551 


204 : 


R-PF , 


AC, 


J/MOVS 




;MOVS 


2552 




I -PF , 


AC , 


J/MOVS 




;MOVSI 






W 


M , 


J/MOVS 




;MOVSM 






RW 


S , 


J/MOVS 




;MOVSS 


ZOjj 














occc 


id- 


R-PF , 


AC , 


J/MOVN 




; MOVN 






I -PF , 


AC , 


J/MOVN 




;MOVNI 


2558 




w, 


M, 


J/MOVN 




; MOVNM 






RW 


S , 


J/MOVN 




; MOVNS 


2560 














256 1 


214: 


R-PF, 


AC, 


J/MOVM 




;MOVM 


2562 




I-PF, 


AC, 


J/STAC 




;MOVMI 


2563 




w, 


M, 


J/MOVM 




; MOVMM 


2564 




RW 


s, 


J/MOVM 




; MOVNS 


2565 




.UCODE 










2566 














2567 


1 402 : 












2568 


MOVS : 


[ AR 3 [ AR 3 SWAP, EXIT 






zoos? 














2570 


1403 : 












2571 


MOVM: 


READ [ AR 3 , SKIP 


DPO, J/MOVE 




2572 














2573 


1404: 












2574 


MOVE: 


EXIT 










2575 


1405: 












2576 


MOVN: 


[AR3- 


[ AR 3 , 




.NEGATE 


NUMBER 


2577 




AD FLAGS, 3T, 




UPDATE 


FLAGS 


2578 




J/MOVE 






.STORE 


ANSWER 


2579 















T10KI .MCR[ 10, 1 141 ] 
SIMPLE . MIC [ 10 , 1 141 ] 



11:45 11 -AUG- 1984 
15:31 27-JULY-1984 



MICRO 



D 0250, 0015,1406,1500 

U 1406, 0467,3771,0005,0276,6007,0700,0200,0003,0002 
U 0467 , 1515,3333, 0005 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 



(254) 



KS10 MICROCODE V124, 
EXCH 
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2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 



.TOC 



250: 



1406: 
EXCH: 



"EXCH" 

. DCODE 
R,W TEST, 
.UCODE 



[BR]_AC, 
START WRITE 
MEM WRITE, 
MEM__[BR ] , 
J/STAC 



AC, 



J/EXCH 



COPY AC TO THE BR 

START A WRITE CYCLE 

COMPLETE WRITE CYCLE 

STORE BR (AC) IN MEMORY 

STORE THE AR IN AC. NOTE: AR 
WAS LOADED WITH MEMORY OPERAND 
AS PART OF INSTRUCTION DISPATCH 



T10KI .MCR[ 10, 1 141 ] 
SIMPLE .MIC[ 10, 1141] 



11:45 11 -AUG- 1984 
15:31 27-JULY-1984 



MICRO 31(254) 













2595 












2596 












2597 












2598 


D 


0500, 


1015, 


1410 


1 100 


2599 


n 
u 


you 1 , 


AA -f C 


1410 


3000 


2600 


n 

Lf 


0R09 


0016 


1407 


1 700 


2601 


n 


0503 


0004 


1 404 


1 700 


2602 
2603 


U 


0504, 


•i o I 

lUlO 


i Ai i 


i inn 


2604 


D 


ACAC 

UdUd , 


UUI O s 


1't 1 1 


Q AAA 


2605 


n 
u 


ACAC 

vyOv/O , 


on 1 r 


1413 


1 700 


2606 


n 
u 


ACA7 
UDU / , 




1414 


1 700 


2607 
2608 


D 


0510, 


1015, 


1432 


1 100 


2609 


D 


05 1 1 , 


0015 , 


1432 


O AAA 


26 10 


U 


Air 4 r\ 
UO 1 , 


n i i k 

V/ 1 IO 


1 *t 


0700 


261 1 


n 
U 


AC 4 O 

UD 1 o , 




! *+o^i 


1 700 


2612 










2613 


D 


0514, 


1015, 


1424 


1 100 


2614 


n 
U 


AC 4 K 


AA 4 K 


1424 


3000 


2615 


P 


05 16 , 


0116, 


1424 


0700 


2616 


D 


05 17 , 


0004 ] 


1424 


1700 


2617 
2618 


D 


0520, 


1015, 


1433 


1 100 


2619 


n 


OR9 1 


on 15 


1433 


3000 


2620 


D 


0522 , 


0116, 


1433 


0700 


.2621 


D 


0523 , 


0004 , 


1433 


1700 


2622 
2623 


D 


0524, 


1015, 


1425 


1100 


2624 


D 


0525 , 


AA 4 C 




QAAA 

oUUU 


2625 


u 


Acne 


01 16 


1 425 


0700 


2626 


n 


AR07 


0004 


1425 


1 700 


2627 
2628 


D 


0530, 


1015 


1430 


1 100 


2629 




AGO 1 


OO 1 ^ 


■f 4^0 


3000 


2630 


D 


0532 , 


01 16, 


1430 


0700 


2631 


D 


0533, 


0004, 


1430 


1700 


2632 
2633 


D 


0534, 


1015 


1422 


1 100 


2634 


D 


0535, 


0015 


1422 


3000 


2635 


D 


0536, 


0116, 


1422 


0700 


2636 


D 


0537, 


0004 


1422 


1700 


2637 
2638 



KS10 MICROCODE V124, 27-JUL-84 
HALFW0RD GROUP 

„T0C "HALF WORD GROUP" 

: DESTINATION LEFT HALF 



. DC0DE 
500: R-PF, 
I-PF, 
RW, 
RW, 

R-PF, 
I-PF, 
RW, 
RW, 

510: R-PF, 
I-PF, 
W, 
RW, 

R-PF, 
I-PF, 
W, 
RW, 

520: R-PF, 
I-PF, 
W, 
RW, 

R-PF, 
I-PF, 
W, 
RW, 

530: R-PF, 
I-PF, 
W, 
RW, 

R-PF, 
I-PF, 
W, 
RW, 



Page 73 



AC, 


J/HLL 


AC, 


J/HLL 


M, 


J/HRR 


s, 


J/MOVE 


AC, 


J/HRL 


AC, 


J/HRL 


M, 


J/HRLM 


s, 


J/HRLS 


AC, 


J/HLLZ 


AC, 


J/HLLZ 


M, 


J/HLLZ 


s, 


J/HLLZ 


AC, 


J/HRLZ 


AC, 


J/HRLZ 


M , 




s, 


J/HRLZ 


AC, 


J/HLLO 


AC, 


J/HLLO 


M , 


i /ui i n 
J/HLLU 


s, 


J/HLLO 


AC, 


J/HRLO 


AC, 


J/HRLO 


M, 


J/HRLO 


s, 


J/HRLO 


AC, 


J/HLLE 


AC, 


J/HLLE 


M, 


J/HLLE 


s, 


J/HLLE 


AC, 


J/HRLE 


AC, 


J/HRLE 


M, 


J/HRLE 


s, 


J/HRLE 



; HLLM = HRR EXCEPT FOR STORE 
; HLLS = MOVES 



o 



T10KI .MCR[ 10, 1141] 
SIMPLE . MIC [ 10, 1 141 ] 



11:45 11-AUG-1984 
15:31 27-JULY-1984 



MICRO 31(254) 











2639 










2640 


D 


0540, 


1015, 


1407,1100 


• 2641 


D 


0541 , 


0015, 


1407,3000 


2642 


D 


0542, 


0016, 


1410, 1700 


2643 


D 


0543, 


0004, 


1404, 1700 


2644 
2645 


D 


0544, 


1015, 


1412,1100 


2646 


D 


0545, 


0015, 


1412,3000 


2647 


D 


0546, 


0016, 


1415, 1700 


2648 


D 


0547, 


0004, 


1416, 1700 


2649 
2650 


D 


0550, 


1015, 


1420, 1 100 


2651 


D 


0551 , 


0015, 


1420,3000 


2652 


D 


0552, 


01 16, 


1420,0700 


2653 


D 


0553, 


0004, 


1420, 1700 


2654 
2655 


D 


0554, 


1015, 


1426,1100 


2656 


D 


0555, 


0015, 


1426, 3000 


2657 


D 


0556, 


01 16, 


1426,0700 


2658 


D 


0557, 


0004, 


1426, 1700 


2659 
2660 


D 


0560, 


1015, 


1421,1100 


2661 


D 


0561 , 


0015, 


1421 ,3000 


2662 


D 


0562, 


01 16, 


1421 ,0700 


2663 


D 


0563, 


0004, 


1421 , 1700 


2664 
2665 


D 


0564, 


1015, 


1427, 1 100 


2666 


D 


0565, 


0015, 


1427,3000 


2667 


D 


0566, 


01 16, 


1427,0700 


2668 


D 


0567, 


0004, 


1427, 1700 


2669 
2670 


D 


0570, 


1015, 


1417, 1 100 


2671 


D 


0571 , 


0015, 


1417,3000 


2672 


D 


0572, 


01 16, 


1417,0700 


2673 


D 


0573, 


0004, 


1417, 1700 


2674 
2675 


D 


0574, 


1015, 


1423, 1 100 


2676 


D 


0575, 


0015, 


1423, 3000 


2677 


D 


0576, 


01 16, 


1423,0700 


2678 


D 


0577, 


0004, 


1423, 1700 


2679 
2680 
2681 
2682 



KS10 MICROCODE V124, 27-JUL-84 
HALFWORD GROUP 

; DESTINATION RIGHT HALF 



540: R-PF, 
. I-PF, 
RW, 
RW, 

R-PF, 
I-PF, 
RW, 
RW, 

550: R-PF, 
I-PF, 
W, 
RW, 

R-PF, 
I-PF, 
W, 
RW, 

560: R-PF, 
I-PF, 
W, 
RW, 

R-PF, 
I-PF, 
W, 
RW, 

570: R-PF, 
I-PF, 
W, 
RW, 

R-PF, 
I-PF, 
W, 
RW, 

.UCODE 



AC, 


J/HRR 


AC , 


J/HRR 


M, 


J/HLL 


s, 


J/MOVE 


AC, 


J/HLR 


AC, 


J/HLR 


M, 


J/HLRM 


s, 


J/HLRS 


AC, 


J/HRRZ 


AC, 


J/HRRZ 


M, 


J/HRRZ 


s, 


J/HRRZ 


AC, 


J/HLRZ 


AC, 


J/HLRZ 


M, 


J/HLRZ 


S , 


J/HLRZ 


AC, 


J/HRRO 


AC , 


J/HRRO 


M, 


J/HRRO 


s, 


J/HRRO 


AC, 


J/HLRO 


AC, 


J/HLRO 


M, 


J/HLRO 


s, 


J/HLRO 


AC, 


J/HRRE 


AC, 


J/HRRE 


M, 


J/HRRE 


s, 


J/HRRE 


AC, 


J/HLRE 


AC, 


J/HLRE 


M, 


J/HLRE 


s, 


J/HLRE 



Page 74 



; HRRM = HLL EXCEPT FOR STORE 
; HRRS = MOVES 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 31(254) 

SIMPLE. MIC[ 10, 1141] 15:31 27-JULY-1984 



KS10 MICROCODE V124, 27-JUL-84 Page 75 
HALFWORD GROUP 



U 1 407 , 1 500 ,3771, 0003 , 0276 , 0003 , 7700 , 0200 , 0003 , 000 1 
U 1410, 1 500 ,3771, 0003 , 0270 , 6003 , 7700 , 0200 , 0003 , 000 1 



U 141 1 , 1410,3770,0303,4344,4007,0700,0000,0000,0000 
U 1412, 1 407 , 3770 , 0303 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 



U 1413, 0471,3770,0303,4344,4007,0700,0000,0000,0000 
U 047 1 , 1 402 ,3771, 0003 , 0270 , 6007 , 0700 , 0000 , 0000 , 0000 

U 1414, 1 500 , 3770 , 0303 , 4344 , 0003 , 7700 , 0200 , 0003 , 000 1 



U 1415, 0506,3770,0303,4344,4007,0700,0000,0000,0000 
U 0506 , 1 402 ,3771, 0003 , 0276 , 0007 , 0700 , 0000 , 0000 , 0000 

U 1416, 1 500 , 3770 , 0303 , 4340 , 4003 , 7700 , 0200 , 0003 , 000 1 



2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

271 1 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 



; FIRST THE GUYS THAT LEAVE THE OTHER HALF ALONE 

; THE AR CONTAINS THE MEMORY OPERAND. SO WE WANT TO PUT THE LH OF 

; AC INTO AR TO DO A HRR . OBVIOUS THING FOR HLL . 

1407: 

HRR: [ AR ]_AC , HOLD RIGHT, EXIT 

1410: 

HLL: [AR]__AC,HOLD LEFT, EXIT 

HRL FLOW: 

AT HRL AR CONTAINS: 



LH OF (E) 



RH OF (E) 



AR AR SWAP GIVES: 



RH OF (E) 



LH OF (E) 



AT HLL, AR AC, HOLD LEFT GIVES: 



RH OF (E) 



RH OF AC 



THE EXIT MACRO CAUSES THE AR TO BE STORED IN AC (AT STAC). 
THE REST OF THE HALF WORD IN THIS GROUP ARE VERY SIMILAR. 



1411 : 
HRL: 
1412: 
HLR: 

1413: 
HRLM: 

1414: 
HRLS: 

1415: 
HLRM: 

1416: 
HLRS: 



[AR]_[AR] SWAP,J/HLL 
[AR]_[AR] SWAP,J/HRR 



[AR]__[AR] SWAP 

[ AR ]_AC , HOLD LEFT,J/MOVS 

[AR]_[AR] SWAP, HOLD RIGHT, EXIT 



[AR]_[ AR] SWAP 

t AR ]_AC , HOLD RIGHT, J/MOVS 

[ AR]_[ AR] SWAP,HOLD LEFT, EXIT 



o 

; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[ 10, 1141] 15:31 27-JULY-1984 





u 


1417, 




u 


1420, 




u 


1421 , 




u 


1422, 




u 


1424, 


223-788 


u 


1425, 


$ 






o 


u 


1423, 


it 






o 

* 


u 


1426, 


is 






I 
& 


u 


1427, 


1 






I 
1 


u 


1430, 


.1 


u 


1432, 


ion Sen 


u 


1433, 


I 






need Info 






< 

s 

•a 
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KS10 MICROCODE V124, 27-JUL-84 Page 76 
HALFWORD GROUP 



2731 


;N0W 


THE HALFWORD OPS WHICH CONTROL THE " 


2732 


; ENTER WITH 


0, , E (E) OR (AC) IN AR 


2733 








2734 


1417 






2735 


HRRE 


: READ 


[AR] ,SKIP DP18 


2736 


1420 






2737 


HRRZ 


[AR] 


LEFT_0, EXIT 


2738 


1421 






2739 


HRRO 


[AR] 


LEFT_- 1 , EXIT 


2740 








2741 


1422 






2742 


HRLE 


READ 


[AR] ,SKIP DP18 


2743 


1424 






2744 


HRLZ 


CAR]. 


_#,#/0,H0LD RIGHT, J/MOVS 


2745 


1425 






2746 


HRLO 


[AR]. 


_#,#/777777,H0LD RIGHT, J/MOVS 


2747 








2748 


1423 






2749 


HLRE 


READ 


[AR] ,SKIP DPO 


2750 


1426 






2751 


HLRZ 


[AR]_ 


_#,#/0,HOLD LEFT, J/MOVS 


2752 


1427 






2753 


HLRO 


[AR]_ 


_#,#/777777,H0LD LEFT, J/MOVS 


2754 








2755 


1430 






2756 


HLLE 


READ 


[AR] ,SKIP DPO 


2757 


1432: 






2758 


HLLZ ' 


[AR] 


RIGHT_0, EXIT 


2759 


1433. 






2760 


HLLO: 


[AR] 


RIGHT_-1, EXIT 


2761 









T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 31 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



D 0120, 0205,1505,1100 
D 0121, 0215,1434,1100 



U 1434, 2752,4551,0404,4374,0007,0700,0010,0037,7777 
U 1436, 1515,3440,0404, 1 174,4007,0700,0400,0000, 1441 



D 0124, 0300, 1567,0100 
D 0125, 0100,1565,0500 



U 1565, 2751,3771,0004,1276,6007,0701,0010,0000,1441 



§ U 1567, 0511,0113,0207,4174,4007,0700,0200,0003,0312 

2 U 0511, 0512,3333,0004,4175,5007,0701,0200,0000,0002 



U 0512, 0455,3443,0200,4174,4007,0700,0200,0003,0312 



254) 



2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 



KS10 MICROCODE V124, 27-JUL-84 Page 77 
DMO VE, DMOVN, DMOVEM, DMOVNM 

.TOC "DMOVE , DMOVN, DMOVEM, DMOVNM" 

. DCODE 

120: DBL R, DAC , d/DAC 

DBL R, AC, J/DMOVN 
.UCODE 

1434: 

DMOVN: CLEAR ARXO, CALL [DBLNGA] 
1436: AC[ 1 ]_[ARX] , J/STAC 

.DCODE 

124: DBL AC, J/DMOVN 1 

W , J/DMOVNM 
.UCODE 



1565: 
DMOVNM : 
1567: 
DMOVN 1 : 



[ARX]_AC[ 1 ] ,CALL [DBLNEG] 

[HR]+[ONE] , 
LOAD VMA, 
START WRITE, 
PXCT DATA 

MEM WRITE, MEM_[ ARX ] 
VMA_[HR], 
LOAD VMA, 
PXCT DATA, / 
START WRITE, / 
J/STORE f 



GET E+1 

PUT THAT IN VMA 
STORE IN E+1 
DATA CYCLE 
STORE LOW WORD 
GET E 

SAVE IN VMA 
OPERAND STORE 
START MEM CYCLE 
GO STORE AR 



T10KI .MCR[ 10, 1141] 
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MICRO 31(254) 



KS10 MICROCODE V124, 
BOOLEAN GROUP 



27-JUL-84 Page 78 



D 0400, 0015,1441,3000 

D 0401, 0015,1441,3000 

D 0402, 0016,1441,2700 

D 0403, 0017,1441,2700 



U 1441 , 1500,4221 ,0003,4174,4003,7700,0200,0003,0001 



D 0404, 1015, 1442, 1 100 

D 0405, 0015,1442,3000 

D 0406, 0016,1442,1700 

D-0407, 0017,1442,1700 



U 1442, 1 500 ,4551, 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0410, 1015, 1443, 1 100 

D 041 1 , 0015, 1443,3000 

D 0412, 0016, 1443, 1700 

D 0413, 0017,1443,1700 



U 1443, 1 500 , 555 1 , 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0414, 1015, 1404, 1 100 

D 0415, 0015,1404,3000 

D 0416, 0016,1404,1700 

D 0417, 0017,1404,1700 

D 0420, 1015,1444,1100 

D 0421, 0015,1444,3000 

D 0422, 0016,1444,1700 

D 0423, 0017,1444,1700 



U 1 444 , 1442,7441, 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



D 0424, 0000,1400,1100 

D 0425, 0000,1400,2100 

D 0426, 0116,1404,0700 

D 0427, 0116,1404,0700 



2793 


.TOC 


"BOOLEAN GROUP 




2794 










2795 




.DCODE 






2796 


400: 


I-PF , 


AC, 


J/SETZ 


2797 




I-PF, 


AC, 


J/SETZ 


2798 




IW, 


M, 


J/SETZ 


2799 




IW, 


B, 


J/SETZ 


2800 




.UCODE 






2801 










2802 


1441 : 








2803 


SETZ : 


[AR]_0, 


EXIT 




2804 










2805 




.DCODE 






2806 


404: 


R-PF, 


AC, 


J/AND 


2807 




I-PF, 


AC, 


J/ AND 


2808 




RW, 


M, 


J/AND 


2809 




RW, 


B, 


J/AND 


2810 




.UCODE 






281 1 










2812 


1442: 








2813 


AND: 


[AR] [ AR ] . AND . 


AC , EXIT 


2814 










2815 




.DCODE 






2816 


410: 


R-PF, 


AC, 


J/ANDCA 


2817 




I-PF, 


AC, 


J/ ANDCA 


2818 




RW, 


M, 


J/ANDCA 


2819 




RW 


B, 


J/ANDCA 


2820 




.UCODE 






2821 










2822 


1443: 








2823 


ANDCA : 


[AR] [ AR ] . AND . 


NOT. AC.EXI 


2824 










2825 




.DCODE 






2826 


414: 


R-PF, 


AC, 


J/MOVE 


2827 




I-PF, 


AC, 


J/MOVE 


2828 




RW, 


M, 


J/MOVE 


2829 




RW, 


B, 


J/MOVE 


2830 










2831 


420: 


R-PF, 


AC, 


J/ANDCM 


2832 




I-PF, 


AC, 


J/ANDCM 


2833 




RW, 


M , 


J/ANDCM 


2834 




RW 


B, 


J/ANDCM 


2835 




.UCODE 






2836 










2837 


1444: 








2838 


ANDCM: 


[AR] .NOT. [AR] , J/AND 


2839 










2840 




.DCODE 






2841 


424: 


R, 




J/DONE 


2842 




I , 




J/DONE 


2843 




w, 


M , 


J/MOVE 


2844 




w, 


M , 


J/MOVE 


2845 




.UCODE 






2846 











; SETM = MOVE 

; SETMM = NOP THAT WRITES MEMORY 
; SETMB = MOVE THAT WRITES MEMORY 



; SETAM = MOVEM 
; SETAB , TOO 



T10KI.MCR[10, 1141] 11:45 11-AUG-1984 MICRO 

SIMPLE. MIC[10, 1141] 1.5:31 27- JULY- 1984 





D 
D 
D 
D 


0430, 
0431 , 
0432, 
0433, 


1015, 1445, 1 100 
0015, 1445, 3000 
0016,1445,1700 
0017,1445,1700 




U 


1445, 


1 500 ,6551, 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 


123-7881 


D 
D 
D 
D 


0434, 
0435, 
0436, 
0437, 


1015,1446,1100 
0015, 1446,3000 
0016, 1446, 1700 
0017,1446,1700 


O 

S 


U 


1446, 


1 500 ,3551, 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 


etronic Laser Printer, PKC 


D 
D 
D 
D 


0440, 
0441 , 
0442, 
0443, 


1015, 1447, 1 100 
0015, 1447,3000 
0016, 1447, 1700 
0017, 1447, 1700 


i Services Elei 


U 


1447, 


1443, 744 1 , 0303 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 


1 on Advanced Informattoi 


D 
D 
D 
D 


0444, 
0445, 
0446, 
0447, 


1015,1450,1100 
0015, 1450,3000 
0016,1450,1700 
0017, 1450, 1700 


Produced 


U 


1450, 


1 500 ,7551, 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 




D 
D 
D 
D 


0450, 
0451 , 
0452, 
0453, 


0015, 1451,3000 
0015, 1451 ,3000 
0016,1451,2700 
0017, 1451 ,2700 




U 


1451 , 


1 500 ,7771, 0003 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



( 

v 



1(254) KS10 MICROCODE V124, 27-JUL-84 Page 79 
BOOLEAN GROUP 



2847 

2848 430: 

2849 

2850 

2851 

2852 

2853 

2854 1445: 

2855 XOR: 
2856 

2857 

2858 434: 

2859 

2860 

2861 

2862 

2863 

2864 1446: 

2865 I0R: 
2866 

2867 

2868 440: 

2869 

2870 

2871 

2872 

2873 

2874 1447: 

2875 ANDCB: 
2876 

2877 

2878 444: 

2879 

2880 

2881 

2882 

28,83 

2884 1450: 

2885 EOV: 
2886 

2887 

2888 450: 

2889 

2890 

2891 

2892 

2893 

2894 1451: 

2895 SETCA: 
2896 



. DCODE 






R-PF, 


AC, 


J/XOR 


I-PF', 


AC, 


J/XOR 


RW, 


M, 


J/XOR 


RW, 


B, 


J/XOR 


.UCODE 







[AR]_[AR] .XOR. AC, EXIT 



.DCODE 






R-PF, 


AC, 


J/IOR 


I-PF, 


AC, 


J/IOR 


RW, 


M, 


J/IOR 


RW 


B, 


J/IOR 


.UCODE 







EAR]_[AR] .OR. AC, EXIT 
.DCODE 

R-PF, AC, J/ANDCB 

I-PF, AC, J/ANDCB 

RW, M, J/ANDCB 

RW, B, J/ANDCB 
.UCODE 



[AR]_.NOT. [AR] , J/ANDCA 

.DCODE 

R-PF, AC, J/EOV 

I-PF, AC, J/EOV 

RW, M, J/EOV 

RW, B, J/EQV 
.UCODE 



[AR]_[AR] . EOV. AC, EXIT 
.DCODE 

I-PF, AC, J/SETCA 

I-PF, AC, J/SETCA 

IW, M, J/SETCA 

IW, B, J/SETCA 
.UCODE 



[AR]_.NOT.AC,EXIT 



T10KI .MCR[ 10, 1141] 
SIMPLE . MIC [ 10, 1141] 



11:45 11-AUG-1984 
15:31 27-JULY-1984 



MICRO 31(254) 



KS10 MICROCODE V124, 27-JUL-84 Page 80 
BOOLEAN GROUP 



D 0454, 1015, 1452, 1 100 

D 0455, 0015,1452,3000 

D 0456, 0016,1452,1700 

D 0457, 0017,1452,1700 



U 1452, 0531,7771,0005,0274,4007,0700,0000,0000,0000 
U 0531 , 1500,31 1 1 ,0503,4174,4003,7700,0200,0003,0001 



D 0460, 1015, 1453, 1 100 

D 0461, 0015,1453,3000 

D 0462, 0016,1453,1700 

D 0463, 0017, 1453, 1700 



U 1453, 1 500 , 744 1 , 0303 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 



D 0464, 1015, 1454, 1 100 

D 0465, 0015,1454,3000 

D 0466, 0016,1454,1700 

D 0467, 0017,1454,1700 



U 1 454 , 1 446 ,7441, 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



D 0470, 1015, 1455, 1 100 

D 0471 , 0015, 1455,3000 

D 0472, 0016,1455,1700 

D 0473, 0017,1455,1700 



U 1455 , 1453 , 455 1 , 0303 , 0274 , 4007 , 0700 , 0000 , 0000 , 0000 



D 0474, 0015,1456,3000 

D 0475, 0015,1456,3000 

D 0476, 0016,1456,2700 

D 0477, 0017,1456,2700 



U 1456, 1 500 , 244 1 , 0703 ,4174, 4003 , 7700 , 4200 , 0003 , 000 1 



2897 




. DCODE 






2898 


454 : 


R-PF , 


AC , 


J/ORCA 


2899 




I-PF, 


AC, 


J/ORCA 


2900 




RW, 


M , 


J/ORCA 


2901 




RW, 


B, 


J/ORCA 


2902 




.UCODE 






2903 










2904 


1452 : 








2905 


ORCA : 


[BR]_. 


NOT. AC 




2906 




[AR] [AR].OR. 


f nn 1 CVTT 

L BR J , EXIT 


2907 










2908 




.DCODE 






2909 


460 : 


R-PF , 


AC, 


J/SETCM 


2910 




I-PF , 


AC, 


J/SETCM 


291 1 




RW, 


M, 


J/SETCM 


2912 




RW, 


B, 


J/SETCM 


2913 




.UCODE 






2914 










2915 


1453 : 








2916 


SETCM: 


[AR]_. 


NOT . [AR],EXIT 


2917 










2918 




.DCODE 






2919 


464 : 


R-PF, 


AC, 


J/ORCM 


2920 




I-PF, 


AC, 


J/ORCM 


2921 




RW, 


M, 


J/ORCM 


2922 




RW, 


B, 


J/ORCM 


2923 




.UCODE 






2924 










2925 


1454 : 








2926 


ORCM : 


[AR]_. 


NOT. [AR] , J/IOR 


2927 










2928 




.DCODE 






2929 


470: 


R-PF, 


AC, 


J/ORCB 


2930 




I-PF, 


AC, 


J/ORCB 


2931 




RW, 


M, 


J/ORCB 


2932 




RW, 


B, 


J/ORCB 


2933 




.UCODE 




/ 


2934 










2935 


1455 : 








2936 


ORCB : 


[AR] [ AR ] . AND 


.AC, J/SETCM 


2937 










2938 




.DCODE 






2939 


474 : 


I-PF, 


AC, 


J/SETO 


2940 




I-PF, 


AC, 


J/SETO 


2941 




iw, 


M, 


J/SETO 


2942 




iw, 


B, 


J/SETO 


2943 




.UCODE 






2944 










2945 


1456: 








2946 


SETO: 


[AR]_- 


[ONE] , 


EXIT 


2947 











T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



D 0240, 0400,1622,1000 

D 0241, 0400,1632,1000 

D 0242, 0400,1612,1000 

D 0243, 0000,1462,2100 

D 0244, 0000,1466,3000 

D 0245, 0500,1470,1000 

D 0246, 0500,1464,1000 



U 1612, 0532,3771,0003,0276,6007,0700,1000,0031,1777 
U 1613, 0552,4551,1203,0276,6007,0700,1000,0041,0001 
U 0532, 1515,3445,0303,4174,4007,0700, 1020 , 004 1 , 0001 



254) 



KS10 MICROCODE V124, 27-JUL-84 Page 81 
ROTATES AND LOGICAL SHIFTS ROT, LSH, JFFO 



2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 



"ROTATES AND LOGICAL SHIFTS 



.TOC 



240: 



245: 



; IN AR. 

1612: 

LSH: 



1613: 



LSHL: [AR]_[AR]*2, 
SHIFT, J/STAC 



ROT, LSH, JFFO" 



. DCODE 






SH, 


J/ASH 




on , 


J/ROT 




SH, 


J/LSH 




T 

I ', 


J/JFFO 




T _ D C 


J/ASHC 




bHC , 


J/ROTC 




SHC, 


U/LSHC 




.UCODE 






THE CODE 


FOR LOGICAL SHIFT. THE EFFECTIVE ADDRESS 


[AR] AC, 




PICK UP AC 


FE -FE-1, 




NEGATIVE SHIFT 


J/LSHL 




SHIFT LEFT 


[AR] AC. AND. MASK, 


MAKE IT LOOK POSITIVE 


FE FE+1, 




UNDO -1 AT SHIFT 


d/ASHR 




GO SHIFT RIGHT 



;SHIFT LEFT 

,* FAST SHIFT & GO STORE AC 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

; SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 



U 1622, 0564, 4222,0000, 4 1J4, 4007,0700,0000, 
U 1623, 0552,3771,0003,0276,6007,0700,1000, 



0000,0000 
0041 ,0001 



U 0552, 1515,3447,0303,4174,4007,0700, 1020,0041 ,0001 



U 0564, 0502,3777,0003,0274,4007,0631,2000, 
U 0502, 0502,3444,0303,4174,4447,0630,2000, 



U 0503 , 1515, 3445 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



MICRO 31(254) 



2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 



0060,0000 
0060 , 0000 



KS10 MICROCODE V124, 27-JUL-84 Page 82 
ROTATES AND LOGICAL SHIFTS ROT, LSH, JFFO 

; HERE IS THE CODE FOR ARITHMETIC SHIFT. THE EFFECTIVE ADDRESS IS 
; IN AR. 

ASH36 LEFT " [ AR ]_[ AR ] *2 LONG, ASHC, STEP SC , ASH AROV" 

1622: 

ASH: Q_0, J/ASHLO 
1623: [AR]_AC, 

FE_FE+1 
ASHR: [AR]_[AR]*.5, 

ASH, SHIFT, 

J/STAC 



; HARDWARE ONLY DOES ASHC 

; GET THE ARGUMENT 

;FE HAS NEGATIVE SHIFT COUNT 

; SHIFT RIGHT 

; FAST SHIFT 

; STORE AC WHEN DONE 



ASHLO: [AR]_AC*.5, 
STEP SC 

=0 

ASHL: ASH36 LEFT, J/ASHL 



; GET INTO 9 CHIPS 
;SEE IF NULL SHIFT 

;SHIFT LEFT 

;SL0W BECAUSE WE HAVE TO 
; TEST FOR OVERFLOW 



ASHX: 



[AR]_[AR]*2, J/STAC 



; SHIFT BACK INTO 10 CHIPS 



T10KI .MCR[ 10, 1 141 ] 
SIMPLE . MIC[ 10, 1141] 



11:45 11-AUG-1984 
15:31 27-JULY-1984 



MICRO 31(254) KS10 MICROCODE V124, 27-JUL-84 Page 83 

ROTATES AND LOGICAL SHIFTS ROT, LSH , JFFO 



U 1632, 0631,3777,0003,0274,4007,0701,1000,0031,1777 

U 1633, 0572,3777,0003,0274,4007,0701,1000,0041,0001 

U 0572, 0604,3447,0303,4174,4007,0700,0000,0000,0000 

U 0604, 0612,3447,0303,4174,4037,0700,1020,0041,0001 

U 0612, 0503,3445,0303,4174,4007,0700,0000,0000,0000 

U 0631, 0646,3447,0303,4174,4007,0700,0000,0000,0000 



U 0646, 0612,3445,0303,4174,4037,0700,1020,0041,0001 



2996 ; HERE IS THE CODE FOR ROTATE. 

2997 ; IN AR 

2998 1632: 

2999 ROT: [AR]_AC*.5, 

3000 FE_-FE-1, 

3001 J/ROTL 

3002 1633: [AR]_AC*.5, 

3003 FE_FE+1 

3004 [AR]_[AR]*.5 

3005 [AR]_[AR]*.5, 

3006 ROT, SHIFT 

3007 ASHXX: [ AR ]_[ AR ] *2 , J/ASHX 
3008 

3009 ROTL: [AR]_[AR]*.5 

3010 [AR]_[AR]*2, 

3011 ROT, SHIFT, 

3012 J/ASHXX 
3013 



THE EFFECTIVE ADDRESS IS 



PICK UP THE AC (& SHIFT) 
NEGATIVE SHIFT COUNT 
ROTATE LEFT 
PICK UP THE AC 
NEGATIVE SHIFT 
PUT IN 9 DIPS 
SHIFT RIGHT 
FAST SHIFT 
SHIFT TO STD PLACE 



(& SHIFT) 
COUNT 



PUT IN RIGHT 36-BITS 
ROTATE LEFT 
FAST SHIFT 

ALL DONE- -SHIFT BACK 



T10KI „MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
SIMPLE. MICt 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



U 1462, 0514,4551,1205,0276,6007,0622,0000,0000,0000 



U 0514, 0652,3441,0301,4174,4007,0700,0200,0014,0012 
U 0515, 1400,4223,0000, 1 174,4007,0700,0400,0000, 1441 

U 0652, 0534,4443,0000,4174,4007,0700,1000,0071,1764 



U 0534, 0534,3445,0505,4174,4007,0520,1000,0041,0004 

U 0535, 0701,3777,0003,4334,4057,0700,0000,0041,0000 

U 0701, 0706,4251,0303,4374,4007,0700,0000,0000,0077 

U 0706, 0100,3440,0303,1174,4156,4700,0400,0000,1441 



254) 



3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 



KS10 MICROCODE V124, 27-JUL-84 Page 84 
ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO 



1462: 
JFFO: 



=0 



JFFO 1 : 



=0 

JFFOL: 



[BR ]_AC . AND . MASK , 
SKIP AD.EO-0 

[PC]_[AR], , 
LOAD VMA, FETCH, 
J/ JFFO 1 

AC[1]_0, J/DONE 
FE -12. 



4T, 



[BR]_[BR]*2, 
FE_FE+4, 

SKIP DPO, J/JFFOL 
[AR]_FE 

[AR]_[AR] .AND. # CLR LH, 
AC[1]_[AR], NEXT INST 



GET AC WITH NO SIGN 
EXTENSION. SKIP IF 
ZERO. 
NOT ZERO- -JUMP 
GET NEXT INST 
ENTER LOOP 
ZERO- -DONE 

WHY -12.? WELL THE 
HARDWARE LOOKS AT 
BIT -2 SO THE FIRST 
2 STEPS MOVE THE BR 
OVER. WE ALSO LOOK AT 
THE DATA BEFORE THE SHIFT 
SO WE END UP GOING 1 PALACE 
TOO MANY. THAT MEANS THE 
FE SHOULD START AT -3. 
HOWEVER, WE COUNT THE FE BY 
4 (BECAUSE THE 2 LOW ORDER 
BITS DO NOT COME BACK) SO 
FE_-12. 

SHIFT LEFT 
COUNT UP BIT NUMBER 
LOOP TILL WE FIND THE BIT 
GET ANSWER BACK 
#/77 ; MASK TO 1 COPY 
STORE AND EXIT 



T10KI . MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
SIMPLE. MIC[ 10, 1141] 15:31 27-dULY- 1984 



MICRO 31(254) 



KS10 MICROCODE V124, 27-JUL-84 Page 85 
ROTATES AND LOGICAL SHIFTS -- LSHC 



U 1464, 0554,4443,0000,4174,4007,0630,2000,0060,0000 

U 1465, 0747,3333,0003,4174,4007,0700,2000,0031,5777 

U 0747, 0544,4443,0000,4174,4007,0630,2000,0060,0000 

U 0544, 0544,3446,0505,4174,4057,0630,2000,0060,0000 

U 0545, 0767,3444,0505,4174,4007,0700,0000,0000,0000 



U 0554, 0554,3444,0505,4174,4057,0630,2000,0060,0000 

U 0555, 0767,3444,0505,4174,4007,0700,0000,0000,0000 

U 0767 , 1 002 , 3444 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1 002 , 1 026 , 3440 , 0505 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 



3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 



.TOC "ROTATES AND LOGICAL SHIFTS LSHC" 
SHIFT CONNECTIONS WHEN THE SPECIAL FUNCTION "LSHC" IS DONE: 



I - I f 

!0! -->!0000 
I _ i f 



HIGH ORDER 36 BITS 



RAM FILE 



=0 

LSHCL: 
LSHCX: 



0000 



LOW ORDER 36 BITS 



Q-REGISTER 



1464: 




LSHC: 


STEP 


1465: 


READ 




STEP 


=0 




LSHCR: 


[BR] 




[BR]; 



SC -SHIFT-1 



_[BR]*.5 LONG, STEP SC , LSHC , J/LSHCR 
[BR]_[BR]*2 L0NG,U/LSHCX 



[BR]_[BR]*2 LONG, LSHC, STEP SC,J/LSHCL 
[BR]_[BRJ*2 LONG 
EBR]_[BR]*2 LONG 
AC_[BR], J/ASHCQ1 



f 
v 



n 

V 

; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 1466, 0602,3333,0003,4174,4007,0330,3000,0041,4000 

U 0602, 1007,3772,0000, 1275,5007,0701 ,0000,0000, 1441 
U 0603, 0100,4443,0000,4174,4156,4700,0000,0000,0000 



U 1007, 0614,3776,0005,0274,4007,0631,0000,0000,0000 

U 0614, 0634,3447,0505,4174,4007,0700,2000,0041,1776 
U 0615, 0624,3447,0505,4174,4007,0700,2000,0031,1776 

U 0624, 0624,3446,0505,4174,4047,0630,2000,0060,0000 
U 0625 , 1 023 , 3444 , 0505 ,4174, 4047 , 0700 , 0000 , 0000 , 0000 

U 0634, 0634,3444,0505,4174,4447,0630,2000,0060,0000 

U 0635 , 1 023 , 3444 , 0505 ,4174, 4447 , 0700 , 0000 , 0000 , 0000 

U 1023, 0642,0113,0505,0174,4007,0521,0400,0000,0000 

U 0642 , 1026 , 4662 , OOOO , 4374 , 0007 , 0700 , 0000 , 0037 ,7777 

U 0643 , 1 026 , 3662 , 0000 , 4374 f 0007 , 0700 , 0000 , 0040 , 0000 
U 1026, 0100,3223,0000,1174,4156,4700,0400,0000,1441 



254) 



3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
31 10 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
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ROTATES AND LOGICAL SHIFTS -- ASHC 



.TOC "ROTATES AND LOGICAL SHIFTS ASHC" 



1466: 
ASHC: 



NIDISP 
ASHC 1 : 



=0 

ASHCR: 



READ [AR], 
SC_SHIFT, LOAD FE, 
SKIP ADR.EQ.O 
Q_AC[1] , 
J/ ASHC 1 
NEXT INST 
[BR]_AC*.5 LONG, 

SKIP/SC 
[BRJ_[BR]*.5, 
SC_FE+S#, S0/1776, 
d/ASHCL 
[BR]_[BR]*.5, 
SC_S#-FE, S#/1776 

[BR]_[BR]*.5 LONG, 
ASHC, 

STEP SC, J/ASHCR 
[BR]_[BR]*2 LONG, 
ASHC, J/ASHCX 



PUT AR ON DP 

PUT SHIFT IN BOTH SC AND FE 

SEE IF NULL SHIFT 

NOT NULL- -GET LOW WORD 

CONTINUE BELOW 

NULL- -ALL DONE 

GET HIGH WORD 

AND SHIFT Q 

SEE WHICH DIRECTION 

ADJUST POSITION 

SUBRTACT 2 FROM FE 

GO LEFT 

ADJUST POSITION 

SC -2-FE, SC_+# OF STEPS 

HERE TO GO RIGHT 

GO RIGHT 

SET DATA PATHS FOR ASHC (SEE DPE1) 
COUNT THE STEP AND KEEP LOOPING 
PUT BACK WHERE IT GOES 
COMPLETE INSTRUCTION 



=0 

ASHCL: [BR]_[BR]*2 LONG, 
ASHC, ASH AROV, 
STEP SC, J/ASHCL 
[BR]_[BR]*2 LONG, 
ASHC, ASH AROV 

ASHCX: AC_[BR]+[BR] , 3T , 
SKIP DPO 

=0 Q_Q.AND.#, #/377777, 

HOLD RIGHT, J/ASHCQ1 
Q_Q . OR . # , #/400000 , 
HOLD RIGHT 

ASHC01: AC[1]_0, NEXT INST 



GO LEFT 

SEE IF OVERFLOW 

LOOP OVER ALL PLACES 

SHIFT BACK WHERE IT GOES 

CAN STILL OVERFLOW 

PUT BACK HIGH WORD 

SEE HOW TO FIX LOW SIGN 

POSITIVE, CLEAR LOW SIGN 

GO STORE ANSWER 

NEGATIVE, SET LOW SIGN 

IN LEFT HALF 

PUT BACK AND EXIT 



T1QKI .MCR[ 10, 1141] 11:45 11-AUG-1984' 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY- 1984 



MICRO 



U 1470, 0742,4443,0000,4174,4007,0630,2000,0060,0000 

U 1471 , 1033,3333,0003,4174,4007,0700,2000,0031 ,5777 

U 1033, 0644,4443,0000,4174,4007,0630,2000,0060,0000 

U 0644, 0644,3446,0505,4174,4077,0630,2000,0060,0000 

U 0645, 0767,3444,0505,4174,4007,0700,0000,0000,0000 



U 0742, 0742,3444,0505,4174,4077,0630,2000,0060,0000 



U 0743, 0767,3444,0505,4174,4007,0700,0000,0000,0000 



254) 



3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3ia6 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
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.TOC "ROTATES AND LOGICAL SHIFTS ROTC " 

SHIFT. CONNECTIONS WHEN THE SPECIAL FUNCTION "ROTC" IS DONE: 



=0 

ROTCL: 



f ■ 



. > ! 0000 
» 



HIGH ORDER 36 BITS 



RAM FILE 



0000 



LOW ORDER 36 BITS 



Q-REGISTER 



1470: 




ROTC: 


STEP 


1471 : 


READ 




STEP 


=0 




ROTCR: 


[BR] 




[BR]" 



SC -SHIFT- 1 



[BR]_[BR]*.5 LONG, STEP SC , ROTC , J/ROTCR 
[BR] [BR]*2 LONG,J/LSHCX 



[BR]_[BR]*2 LONG, ROTC, STEP SC,d/ROTCL 

[BR]_[BR]*2 LONG, 

J/LSHCX 



T10KI .MCR[ 10, 1 141 ] 
SIMPLE. MIC[10, 1141] 



11:45 11 -AUG- 1984 
15:31 27-JULY-1984 



D 


0600, 


0000, 


1400,2100 


D 


0601 , 


0000, 


1400,2100 


D 


0602, 


0000, 


1475,2100 


D 


0603, 


0000, 


1474,2100 


D 


0604, 


0000, 


1473,2100 


D 


0605, 


0000, 


1472,2100 


D 


0606, 


0004, 


1475,2100 


D 


0607, 


0004, 


1474,2100 


D 


0610, 


0000, 


1400,2100 


D 


061 1 , 


0000, 


1400,2100 


D 


0612, 


0000, 


1475, 1 100 


D 


0613, 


0000, 


1474, 1 100 


D 


0614, 


0000, 


1473, 1 100 


D 


0615, 


0000, 


1472, 1100 


D 


0616, 


0004, 


1475, 1 100 


D 


0617, 


0004, 


1474, 1 100 


D 


0620, 


0005, 


1473,2100 


D 


0621 , 


0005, 


1472,2100 


D 


0622, 


0001 , 


1475,2100 


D 


0623, 


0001 , 


1474,2100 


D 


0624, 


0001 , 


1473,2100 


D 


0625, 


0001 , 


1472,2100 


D 


0626, 


0005, 


1475,2100 


D 


0627, 


0005, 


1474,2100 



MICRO 31(254) 



3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 



KS10 MICROCODE V124, 
TEST GROUP 



27-JUL-84 Page 88 



.TOC 



"TEST GROUP" 



. DCODE 



; SPECIAL MACROS USED ONLY IN B-FIELD OF TEST INSTRUCTIONS 



TN- 
TNE 

WORD-TNE 

TNA 

TNN 

WORD-TNN 

TZ- 

TZE 

TZA 

TZN 

TC- 

TCE 

TCA 

TCN 

TO- 

TOE 

TOA 

TON 

600: 



610: 



620: 



''B/4' 

"B/O" 

"B/10" 

"B/O" 

"B/4" 

"B/14" 

"B/5" 

"B/1 " 

"B/1 " 

"B/5" 

"B/6" 

"B/2" 

"B/2" 

"B/6" 

"B/7" 

"B/3" 

"B/3" 

"B/7" 



;USED IN TIDE 



;USED IN TION 





d/DONE 




J/DONE 


TNE, 


J/TDXX 


TNE, 


J/TSXX 


TNA, 


J/TDX 


TNA, 


J/TSX 


TNN, 


J/TDXX 


TNN, 


J/TSXX 




J/DONE 




J/DONE 


TNE, 


J/TDXX 


TNE, 


J/TSXX 


TNA, 


J/TDX 


TNA, 


J/TSX 


TNN, 


J/TDXX 


TNN, 


J/TSXX 


TZ-, 


J/TDX 


TZ-, 


J/TSX 


TZE, 


J/TDXX 


TZE, 


J/TSXX 


TZA, 


J/TDX 


TZA, 


J/TSX 


TZN, 


J/TDXX 


TZN, 


J/TSXX 



; TRN- IS NOP 
;S0 IS TLN- 



; TDN- IS A NOP 
;TSN- ALSO 



; T10KI.MCR[10, 1141] 11:45 11-AUG-1984 MICRO 31(254) KS10 MICROCODE V124 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 TEST GROUP 



27-JUL-84 Page 89 



D 


0630, 


0005 


1473 


1 100 


r» 
u 


UOo 1 , 


AAAC 

uuuo 


1 470 


1 inn 


ri 
U 




r\r\r\ 4 
UUU 1 


1 4 / D 


i inn 
1 1 uu 


Pi 
U 


Uooo , 


nnn 4 
UUU I 


1 4 / 4 


4 4 AA 

1 1 uu 


U 


ACQyl 


AAA 4 

UUU 1 


1 H 1 O 


1 1 nn 


V 


ACOC 

UOOD , 


UUU 1 , 


I 4 1 Z 


1 1 nn 

1 1 uu 


n 
U 


V/OOO , 


nnnc* 
UUUO 


1 4 / O 


1 1 nn 


D 


GOO / , 


nnnc; 
UUUO , 


■1/17/1 
1 4 / 4 


4 4 A A 

1 »uu 


D 


0640, 


0006, 


1473 


2100 


D 


064 1 , 


0006 , 


1472 


2 100 


D 


0642 , 


0002 


1475 


2 100 


D 


0643 , 


0002 , 


1474 


2 100 


D 


0644 , 


0002 , 


1473 


2 100 


D 


0645 , 


0002 , 


1 472 


2 100 


D 


0646 , 


0006 , 


1 4 / O 


4 nn 
Z 1 UU 


D 


0647 , 


UUUo , 


4 /I *7>1 


4 nn 
z 1 UU 


pi 
u 


ACCA 

UtJDU , 


UUUO , 


I 4 / O 


4 inn 


n 
u 


AC c -i 
UOO i , 




1472 


1 inn 


U 


UODZ , 


nnno 
UUUZ , 


■4 47c 
1 4 / o 


1 mn 


u 




uuuz , 


1 474 


i inn 


U 


AC C /I 

U004 , 


AAAO 

UUUZ , 


4470 


1 mn 

l lUU 


D 


ACCC 


UUUz , 


4 /I 7 O 
1 4 / Z 


1 i nn 

1 1 uu 


D 


0656 , 


UUUb , 


4 A 7C 
1 4 / O 


1 4 nn 
i 1 UU 


D 


0657, 


0006, 


1474 


1 100 


D 


0660, 


0007, 


1473 


2100 


U 


ACC -1 

Uoo 1 , 


nnn7 
UUU/ , 


1 470 

1 4 / Z 


1 nn 

Z I Vw 


D 


0662 , 


0003 , 


4 A 7K 


4 nn 
Z 1 uu 


D 




AAA Q 

UUUo , 


4 /! 7/1 


1 nn 
Z l uu 


n 
U 


Ace /I 

Uob4 , 


AAAQ 

UUUo , 


4470 
1 *+ / O 


1 nn 

Z 1 uu 


U 


ac c c; 


UUUo , 


1 *+ / Z 


1 nn 
z i vu 


n 
U 


ACCC 

Uooo , 


nnn 7 
UUU / , 


1 4 / O 


1 nn 

Z 1 WW 


n 
U 


Aft £57 


nnn 7 
UUU / , 


1 474 


1 nn 

«C 1 WW 


D 


0670, 


0007, 


1473 


1 100 


D 


0671 , 


0007 , 


1472 


1 100 


D 


0672, 


0003, 


1475 


1100 


D 


0673, 


0003, 


1474 


1 100 


D 


0674, 


0003, 


1473 


1 100 


D 


0675, 


0003, 


1472 


1 100 


D 


0676, 


0007 , 


1475 


1100 


D 


0677, 


0007, 


1474 


1 100 



3201 


630: 


R, 


TZ- , 


J/TDX 


3202 




R, 


TZ- , 


J/TSX 


3203 




R, 


TZE, 


J/TDXX 


3204 




R, 


TZE, 


J/TSXX 


3205 




R, 


TZA, 


J/TDX 


3206 




R, 


TZA, 


J/TSX 


3207 




R, 


TZN, 


J/TDXX 


3208 




R, 


TZN, 


J/TSXX 


3209 










32 10 


640: 


j 


TC- , 


J/TDX 


321 1 




j ' 


TC- , 


J/TSX 


32 12 




T ' 


TCE , 


J/TDXX 


3213 




j ' 


TCE , 


J/TSXX 


32 1 4 




j * 


TCA , 


J/TDX 


3215 




j ' 


TCA, 


J/TSX 


32 16 




j ' 


TCN, 


J/TDXX 


3217 




I * 


TCN, 


J/TSXX 


3218 










3219 


650: 


R, 


TC- , 


J/TDX 


3220 




R, 


TC- , 


J/TSX 


3221 




R, 


TCE, 


J/TDXX 


3222 




R, 


TCE, 


J/TSXX 


3223 




R, 


TCA, 


J/TDX 


3224 




R, 


TCA, 


J/TSX • 


3225 




R, 


TCN, 


J/TDXX 


3226 




R, 


TCN, 


J/TSXX 


3227 


660: 


j 


TO- , 


J/TDX 


3228 




I ' 


TO- , 


J/TSX 


3229 




j ' 


TOE, 


J/TDXX 


3230 




I ' 


TOE, 


J/TSXX 


3231 




I ' 


T0A, 


J/TDX 


3232 




I ' 


T0A, 


J/TSX 


3233 




I \ 


TON, 


J/TDXX 


3234 




l\ 


TON, 


J/TSXX 


3235 










3236 


670: 


R, 


TO- , 


J/TDX 


3237 




R, 


T0-, 


J/TSX 


3238 




R, 


TOE, 


J/TDXX 


3239 




R, 


TOE, 


J/TSXX 


3240 




R, 


T0A, 


J/TDX 


3241 




R, 


T0A, 


J/TSX 


3242 




R , 


TON, 


J/TDXX 


3243 




R, 


TON, 


J/TSXX 


3244 











T10KI .MCR[ 10, 1 141 ] 
SIMPLE. MIC[ 10, 1141] 



11:45 11-AUG-1984 
15:31 27-JULY-1984 



U 1472, 1473, 3770 , 0303 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1473, 0014,4221,0005,4174,4003,7700,0000,0000,0000 

U 1474, 1475,3770, 0303 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1475, 0014,4551,0305,0274,4003,7700,0000,0000,0000 



MICRO 31(254) 



3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
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TEST GROUP 

.UCODE 

THESE 64 INSTRUCTIONS ARE DECODED BY MASK MODE ( IMMEDIATE OR MEMORY) 
IN THE A FIELD, DISPATCH TO HERE ON THE J FIELD, AND RE-DISPATCH 
FOR THE MODIFICATION ON THE B FIELD. 

ENTER WITH 0,E OR (E) IN AR , B FIELD BITS 2 AND 3 AS FOLLOWS: 
NO MODIFICATION 

1 OS 

1 O COMPLEMENT 
1 1 ONES 

THIS ORDER HAS NO SIGNIFICANCE EXCEPT THAT IT CORRESPONDS TO THE 
ORDER OF INSTRUCTIONS AT TGROUP . 

THE BIT 1 OF THE B FIELD IS USED TO DETERMINE THE SENSE 

OF THE SKIP 

1 SKIP IF AC. AND. MASK . NE . (TXX- AND TXXN) 

SKIP IF AC. AND. MASK .EQ. O (TXXA AND TXXE) 

BIT O IS UNUSED AND MUST BE ZERO 



1472: 
TSX: 
1473: 
TDX: 

1474 
TSXX 
1475 
TDXX 



[ AR ]_[ AR ] SWAP 
[BR]_0,TEST DISP 

[AR]_[AR] SWAP 

[BR]_[AR] . AND. AC, 
TEST DISP 



;TSXX AND TLXX 

; ALWAYS AND NEVER SKIP CASES 

;TSXE, TSXN, TLXE , TLXN 
; TDXE , TDXN, TRXE , TRXN 



T10KI.MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 31(254) 

SIMPLE . MIC [ 10, 1141] 15:31 27-JULY-1984 



U 00 1 4 , 1 400 , 3333 , 0005 ,4174, 4007 , 057 1 , 0000 , 0000 , 0000 



U 001 5 , 1036 , 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 0016, 1043,6551,0303,0274,4007,0700,0000,0000,0000 



U 0017, 1043,3551 ,0303,0274,4007,0700,0000,0000,0000 



U 1036 , 1043 , 455 1 , 0303 , 0274 , 4007 , 0700 , 0000 , 0000 , 0000 
U 1043, 0014,3440,0303,0174,4007,0700,0400,0000,0000 



3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
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TEST GROUP 



; TEST DISP DOES AN 8 WAY BRANCH BASED ON THE B- FIELD OF DROM 
= 1100 

TEST-TABLE: 

;CASE & 4 -- TXNX 

TXXX: READ [BR], TXXX TEST, 3T , J/DONE 

;CASE 1 & 5 TXZ AND TXZX 

[AR]_.NOT. [ AR ] , J/TXZX 

;CASE 2 & 6 -- TXC AND TXCX 

[AR]_[AR] .XOR. AC, J/TDONE 

;CASE 3 & 7 -- TXO AND TXOX 

[ AR ]_[ AR ] .OR. AC, J/TDONE 

; THE SPECIAL FUNCTION TXXX TEST CAUSES A MICROCODE SKIP IF 
; AD.EQ.O AND DROM B IS 0-3 OR AD.NE.O AND DROM B IS 4-7. 

TXZX : [ AR ]_[ AR ] . AND . AC 

TDONE: AC_[ AR ] , J/TXXX 

; READ BR, TXXX TEST, J/DONE 



T10KI .MCR[ 10, 1 141 ] 
SIMPLE . MIC [ 10 , 1141] 



11:45 11 -AUG- 1984 
15:31 27-JULY-1984 



U 0250, 0110,3443,0100,4174,4156,4700,0200,0014,0012 

U 0251, 1400,3333,0003,4174,4007,0520,0000,0000,0000 

U 0252 , 1 400 , 3333 , 0003 , 4 1 74 , 4007 , 062 1 , 0000 , 0000 , 0000 

U 0253 , 1 400 , 3333 , 0003 ,4174, 4007 , 042 1 , 0000 , 0000 , 0000 

U 0254, 0110,0111,0701,4170,4156,4700,0200,0014,0012 

U 0255, 0372,3333,0003,4174,4007,0520,0000,0000,0000 

U 0256, 0372,3333,0003,4174,4007,0621,0000,0000,0000 

U 0257, 0372,3333,0003,4174,4007,0421,0000,0000,0000 



MICRO 31(254) 



3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
331 1 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
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COMPARE -- CAI, CAM 



.TOC 


"COMPARE 


- - CAI , CAM 




. DCODE 




^SPECIAL 


B-FIELD 


ENCODING USED BY SKIP 


; INSTRUCTIONS: 




SJC- 


"B/O" 


NEVER 


SJCL 


"B/1 " 


LESS 


SJCE 


" B/2 " 


EQUAL 


SJCLE 


"B/3" 


LESS EQUAL 


SJCA 


"B/4" 


ALWAYS 


SJCGE 


"B/5" 


GREATER THAN OR EQUAL 


SJCN 


"B/6" 


NOT EQUAL 


SJCG 


"B/7" 


GREATER 




.UCODE 





; COMPARE TABLE 
= 1000 

SKIP-COMP-TABLE : 

;CASE NEVER 
DONE 

;CASE 1 LESS 

READ [AR], SKIP DPO, J/DONE 

;CASE 2 EQUAL 

SKIPE: READ [AR], SKIP AD . EQ . O, J/DONE 

;CASE 3 LESS OR EQUAL 

READ [AR], SKIP AD . LE . , J/DONE 

;CASE 4 -- ALWAYS 

VMA_[PC]+1, NEXT INST FETCH, FETCH 

;CASE 5 GREATER THAN OR EQUAL 

READ [AR], SKIP DPO,J/SKIP 

;CASE 6 -- NOT EQUAL 

READ [AR], SKIP AD. EQ.O, J/SKIP 

;CASE 7 -- GREATER 

READ [AR], SKIP AD . LE . 0, J/SKIP 



T10KI .MCR[ 10, 1 141 ] 
SIMPLE. MIC[ 10, 1141] 



D 0300, 
D 0301 , 
D 0302, 
D 0303, 
D 0304, 
D 0305, 
D 0306, 
D 0307, 



0310, 
0311, 
0312, 
0313, 
0314, 
0315, 
0316, 
031 7 , 



0000 , 
0001 , 
0002, 
0003, 
0004, 
0005, 
0006, 
0007, 



1400 
1476 
1476 
1476 
1476 
1476 
1476 
1476 



2100 
2100 
2100 

,2100 
2100 
2100 

,2100 
2100 



0000, 1476, 1 100 
0001 , 1476, 1 100 
0002, 1476, 1 100 
0003, 1476, 1 100 
0004, 1476, 1 100 
0005, 1476, 1 100 
0006, 1476, 1 100 
0007, 1476, 1 100 



11:45 11-AUG-1984 
15:31 27-JULY-1984 



MICRO 31(254) KS10 MICROCODE V124, 27-JUL-84 Page 93 



U 1476, 0250,2551,0303,0274,4003,7701,4000,0000,0000 



3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 



300: 



310: 



1476: 
CAIM: 



PAT 


p am 




nrnn xz 








Q. IP - 






SJCL, 


d/CAIM 


1 » 


SJCE, 


J/CAIM 


r ' 


Q.IPI F 


. 1 /PA t m 


J » 


Q, IP A 


. 1 /PA TM 
U/ v»M 1 1*1 






. 1 /PA TM 


I ' 
1 ' 


Q. IPM 


. 1 /PA TM 


A » 




. 1 /PA TM 


K , 


e, ip _ 


,1/PA TM 


K , 


Q. IPI 


,1/PATM 


R, 


SJCE, 


J/CAIM 




Q.IPI P 


. 1 /PA TM 


R, 


SJCA, 


J/CAIM 


R , 


SJCGE, 


J/CAIM 


R , 


SJCN, 


J/CAIM 


R , 


SJCG, 


J/CAIM 


.UCODE 






[AR]_AC 


-EAR], 


3T, SKIP 



;CAI 



;CAM 



f 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
SIMPLE.MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



D 0330, 0000,1477,1100 

D 0331 , 0001 , 1477, 1 100 

D 0332, 0002, 1477, 1 100 

D 0333, 0003,1477,1100 

D 0334, 0004,1477,1100 

D 0335, 0005, 1477, 1 100 

D 0336, 0006,1477,1100 

D 0337, 0007,1477,1100 



U 1477, 0744,3770,0303,4174,0007,0360,0000,0000,0000 
U 0744 , 0250 , 3440 , 0303 ,0174, 4003 , 7700 , 0400 , 0000 , 0000 
U 0745, 0250,4443,0000,4174,4003,7700,0000,0000,0000 



D 


0350, 


0000, 1431 


1500 


D 


0351 , 


0001 ,1431 


1500 


D 


0352, 


0002, 1431 


1500 


D 


0353, 


0003, 1431 


1500 


D 


0354, 


0004, 1431 


1500 


D 


0355, 


0005, 1431 


1500 


D 


0356, 


0006, 1431 


1500 


D 


0357, 


0007, 1431 


1500 



U 1431 , 1046,01 1 1 ,0703,4174,4467,0701 ,0000,0001 ,0001 
U 1 046 , 1053 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0003 , 0002 
U 1053, 1477,3333,0003,4 175,5007,0701,0200,0000,0002 



D 0370, 0000,1437,1500 

D 0371, 0001, 1437, 1500 

D 0372, 0002,1437,1500 

D 0373, 0003,1437,1500 

D 0374, 0004,1437,1500 

D 0375, 0005,1437,1500 

D 0376, 0006,1437,1500 

D 0377, 0007,1437,1500 



U 1437, 1046, 1111 ,0703,4174,4467,0701 ,4000,0001 ,0001 



11(254) 
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ARITHMETIC SKIPS AOS, SOS, SKIP 



3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
341 1 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 



.TOC "ARITHMETIC SKIPS AOS, SOS, 

; ENTER WITH (E) IN AR 



•330: 



SKIP" 



1477: 
SKIPS: 

=0 



350: 



1431 : 

AOS: 

XOS: 



370: 



. DCODE 






R , 


SJC- , 


J/SKIPS 


R , 


SJCL, 


J/SKIPS 


R, 


SJCE, 


J/SKIPS 


R, 


SJCLE, 


J/SKIPS 


R, 


SJCA, 


J/SKIPS 


R, 


SJCGE, 


J/SKIPS 


R , 


SJCN, 


J/SKIPS 


R , 


SJCG, 


J/SKIPS 


.UCODE 






FIX [AR] 


SIGN, 




SKIP IF 


ACO 




AC [AR] ,SKIP-COMP DISP 


SKIP-COMP DISP 




.DCODE 






RW, 


SJC- , 


J/AOS 


RW, 


SJCL, 


J/AOS 


RW, 


SJCE, 


J/AOS 


RW, 


SJCLE, 


J/AOS 


RW, 


SJCA, 


J/AOS 


RW, 


SJCGE, 


J/AOS 


RW, 


SJCN, 


J/AOS 


RW, 


SJCG, 


J/AOS 


.UCODE 







[AR]_[AR]+1 , 3T, AD FLAGS 
START WRITE 

MEM WRITE, MEM_[AR] , J/SKIPS 



.DCODE 

RW, 

RW, 

RW, 

RW, 

RW, 

RW, 

RW, 

RW 

.UCODE 



SJC- , 

SJCL, 

SJCE, 

SJCLE, 

SJCA, 

SJCGE, 

SJCN, 

SJCG, 



J/SOS 
J/SOS 
J/SOS 
J/SOS 
J/SOS 
J/SOS 
J/SOS 
J/SOS 



1437: 
SOS: 



[AR]_[AR]-1, 3T, AD FLAGS, J/XOS 



; T 10KI . MCR [10, 1141] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY- 1984 

U 0270, 0100,3440,0505,0174,4156,4700,0400,0000,0000 

U 0271, 0762,3770,0505,0174,4007,0520,0400,0000,0000 

U 0272, 0762,3770,0505,0174,4007,0621,0400,0000,0000 

U 0273, 0762,3770,0505,0174,4007,0421,0400,0000,0000 

U 0274, 0764,3440,0505,0174,4007,0700,0400,0000,0000 

U 0275, 0764,3770,0505,0174,4007,0520,0400,0000,0000 

U 0276, 0764,3770,0505,0174,4007,0621,0400,0000,0000 } 

U 0277, 0764,3770,0505,0174,4007,0421,0400,0000,0000 

U 0762, 0110,3443,0100,4174,4156,4700,0200,0014,0012 
U 0763, 0110,3441,0301,4170,4156,4700,0200,0014,0012 

U 0764, 0110,3441,0301,4170,4156,4700,0200,0014,0012 
U 0765, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



\ 



1(254) 
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CONDITIONAL JUMPS -- JUMP, AO J, SO J, AOBJ 



3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 



.TOC "CONDITIONAL JUMPS -- JUMP, AOJ, SO J , AOBJ" 
; ENTER WITH E IN AR 

= 1000 

JUMP-TABLE: 

CASE NEVER 

AC_[BR], NEXT INST 

CASE 1 LESS 

AC_[BR] TEST, SKIP DPO, J/JUMP- 

CASE 2 EQUAL 

AC_[BR] TEST, SKIP AD.EQ.O, J/ JUMP- 
CASE 3 -- LESS THAN OR EQUAL 

ACJBR] TEST, SKIP AD.LE.O, J/JUMP- 

CASE 4 -- ALWAYS 
JMPA: AC_[BR], J/JUMPA 

CASE 5 -- GREATER THAN OR EQUAL TO 

AC_[BR] TEST, SKIP DPO, J/JUMPA 

CASE 6 -- NOT EQUAL 

AC_[BR] TEST-, SKIP AD.EQ.O, J/JUMPA 

CASE 7 -- GREATER 

ACJBR] TEST, SKIP AD.LE.O, J/JUMPA 

=0 

JUMP-: DONE 
JUMPA 



=0 

JUMPA : JUMPA 
DONE 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 



0320, 
0321 , 
0322, 
0323, 
0324, 
0325, 
0326, 



D 0327, 



0000, 
0001 , 
0002, 
0003, 
0004, 
0005, 
0006, 
0007, 



1400, 
1440, 
1440, 
1440, 
1520, 
1440, 
1440, 
1440, 



2100 
2100 
2100 
2100 
2100 
2100 
2100 
2100 



U 1440, 0270,3771,0005,0276,6003,7700,0000,0000,0000 



0340, 
0341 , 
0342, 
0343, 
0344, 
0345, 
0346, 
0347, 



0000, 1611, 
0001 ,1611 
0002, 161 1 , 
0003, 1611 



0004 
0005 
0006 
0007 



1611 
1611 
1611 
1611 



3000 
2100 
2100 
2100 
2100 
2100 
2100 
2100 



U 1611, 0270,0551,0705,0274,4463,7702,0000,0001,0001 



0360, 
0361 , 
0362, 
0363, 
0364, 
0365, 
0366, 
0367, 



0000, 
0001 , 
0002, 
0003, 
0004, 
0005, 
0006, 
0007, 



1542, 
1542. 
1542, 
1542, 
1542, 
1542, 
1542, 
1542, 



3000 
2100 
2100 
2100 
2100 
2100 
2100 
2100 



U 1542, 0270,2551 ,0705,0274,4463,7702,4000,0001 ,0001 



D 0252, 
D 0253, 



0005, 1547,2100 
0001 , 1547,2100 



U 1547, 



0270,0551 , 1505,0274,4403,7701 ,0000,0000,0000 
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3460 




3461 


320: 


3462 




3463 




3464 




3465 




3466 




3467 




3468 




3469 




3470 




3471 


1440 


3472 


JUMP 


3473 


• 


3474 




3475 


340: 


3476 




3477 




3478 




3479 




3480 




3481 




3482 




3483 




3484 




3485 


161 1 


3486 


AOJ: 


3487 




3488 




3489 


360: 


3490 




3491 




3492 




3493 




3494 




3495 




3496 




3497 




3498 




3499 


1542 


3500 


SOJ: 


3501 




3502 




3503 


252: 


3504 




3505 




3506 




3507 


1547 


3508 


AOBJ 


3509 




3510 




351 1 





DCODE 



SJC-, 

SJCL, 

SJCE, 

SJCLE, 

SJCA, 

SJCGE, 

SJCN, 

SJCG, 



J/DONE 
J/JUMP 
J/JUMP 
J/JUMP 
J/JRST 
J/JUMP 
J/JUMP 
J/JUMP 



.UCODE 



[BR]_AC 


.JUMP DISP 


.DCODE 






I-PF, 


SJC-, 


J/AOJ 


I , 


SJCL, 


J/AOJ 


I , 


SJCE, 


J/AOJ 


I , 


SJCLE, 


J/AOJ 


I , 


SJCA, 


J/AOJ 


I , 


SJCGE, 


J/AOJ 


I , 


SJCN, 


J/AOJ 


I , 


SJCG, 


J/AOJ 


.UCODE 







[BR]_AC+1, AD FLAGS, 4T , JUMP DISP 



.DCODE 






I-PF, 


SJC-, 


J/SOJ 


I, 


SJCL, 


J/SOJ 


I , 


SJCE, 


J/SOJ 


I , 


SJCLE, 


J/SOJ 


I , 


SJCA, 


J/SOJ 


I , 


SJCGE, 


J/SOJ 


I , 


SJCN, 


J/SOJ 


I , 


SJCG, 


J/SOJ 


.UCODE 







[BR]_AC-1, AD FLAGS, 4T , JUMP DISP 



.DCODE 

I, SJCGE, J/AOBJ 

I, SJCL, J/AOBJ 

.UCODE 



[BR]_AC+1000001 , 
INH CRY 18 , 3T, 
JUMP DISP 



ADD 1 TO BOTH 
NO CARRY INTO 
HANDLE EITHER 



HALF WORDS 
LEFT HALF 
AOBJP OR AOBJN 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
SIMPLE. MIC[ 10, 1141] 15:31 27-JULY-1984 



D 0254, 0000,1520,6000 
D 0255, 0000,1540,2100 



U 1520, 0110,3441,0301,4170,4156,4700,0200,0014,0012 

U 1521, 0110,3441,0301,4170,4156,4700,0200,0014,0012 

U 1522, 0150,1113,0701,4170,4007,0700,4200,0004,0012 

U 1523, 2621,4551,0202,4374,0007,0700,0000,0077,7740 

U 1524, 1010,4443, 0000 ,4174, 4007 , 0340 , 0000 , 0000 , 0000 



U 1525, 

U 1526, 

U 1527, 

U 1530, 

U 1531, 

U 1532, 

U 1533, 

U 1534, 

U 1535, 

U 1536, 

U 1537, 



2215, 3443 , 0300, 4 1 74 , 4007 , 0700 , 0200 , 0004 , 001 2 
0320 , 4443 , 0000 ,4174, 4007 , 0340 , 0000 , 0000 , 0000 
1 024 , 4443 , 0000 ,4174, 4007 , 0340 , 0000 , 0000 , 0000 

1014, 1 1 13,0701 ,4170,4007,0040,4200,0004,0012 
262 1 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 



0300, 1 1 13,0701 
2621 ,4551 ,0202 
1034,4443 
2621 ,4551 
2621 ,4551 



2621 ,4551 



0000 
0202 
0202 
0202 



4170,4007 
4374,0007, 
4174,4007. 
4374,0007, 
4374,0007, 
4374,0007, 



0040,4200, 
0700,0000, 
0340,0000, 
0700,0000, 
0700,0000, 
0700,0000, 



0004,0012 
0077,7740 
0000,0000 
0077,7740 
0077,7740 
0077,7740 
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3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 



.TOC "AC DECODE JUMPS -- JRST , JFCL" 
. DCODE 

254: I.VMA/O, AC DISP, J/JRST 

I, J/ JFCL 
.UCODE 



;DISPATCHES TO 1 OF 
; PLACES ON AC BITS 



;JRST DISPATCHES TO ONE OF 16 LOC'NS ON AC BITS 



=0000 

1520 

JRST 

1521 

1522 



JUMPA 
JUMPA 

VMA_[PC]-1, START READ, 
J/JRSTF 
UUO 

SKIP KERNEL, J/HALT 



1523 
1524 
1525 

XJRSTFO: VMA_[AR], START READ, ;(5) XJRSTF 
J/XJRSTF 

1526: SKIP KERNEL, J/XJEN ;(6) XJEN 

1527: SKIP KERNEL, J/XPCW ;(7) XPCW 

1530: VMA_[PC]-1, START READ, ; ( 10) 

SKIP 10 LEGAL, J/ JRST 10 
1531: UUO ;(11) 
1532: VMA_[PC]-1, START READ, ;(12) JEN 

SKIP 10 LEGAL, J/JEN 
1533: UUO ;(13) 
1534: SKIP KERNEL, J/SFM ;(14) SFM 

1535: UUO ;(15) 
1536: UUO ;(16) 
1537: UUO ;(17) 



; (0) JRST 0, 

;(1) PORTAL IS SAME AS JRST 
;(2) JRSTF 

;(3) 

; (4) HALT 



T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



U 1 50 , 1064 ,3771, 0002 , 4365 ,5217, 0700 , 02 1 , 0000 , 0002 
U 0152, 0110,3441,0301,4170,4156,4700,0200,0014,0012 

U 1064, 0030,4443,0000,2174,4006,6700,0000,0000,0000 

U 0030, 0002,3773,0000,2274,4464,1700,0000,0001,0004 

U 0032, 0002,3333,0002,4174,4464,1700,0000,0001,0004 

U 0034, 1 1 17,0551 ,0202,2270,4007,0700,0200,0004,0012 

U 0036, 1 1 17,3443,0200,4174,4007,0700,0200,0004,01 12 



U 1117, 1064,3771 ,0002,4365,5217,0700,0200,0000,0002 
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3546 


=0* 






3547 


JRSTF : 


MEM READ, 


;WAIT FOR DATA 


3548 




[HR ]_MEM, 


; STICK IN HR 


3549 




LOAD INST EA, 


; LOAD @ AND XR 


3550 




CALL [JRSTO] 


; COMPUTE EA AGAIN 


3551 




JUMPA 


; JUMP 


3552 








3553 


JRSTO: 


EA MODE DISP 


;WHAT TYPE OF EA? 


3554 


= 100* 






3555 




READ XR, 


■ INDEXED 


3556 




LOAD FLAGS, 


;GET FLAGS FROM XR 


3557 




UPDATE USER, 


; ALLOW USER TO SET 


3558 




RETURN [2] 


ALL DONE 


3559 




READ [HR], 


PLAIN 


3560 




LOAD FLAGS, 


LOAD FLAGS FROM INST 


356 1 




UPDATE USER, 


ALLOW USER TO SET 


3562 




RETURN [2] 


RETURN 


3563 




[HR J_[HR J+XR , 


BOTH 


3564 




LOAD VMA , 


FETCH IND WORD 


3565 




START READ, 


START MEM CYCLE 


3566 




J/JRST1 


CONTINUE BELOW 


3567 




VMA_l HR J , 


INDIRECT 


3568 




START READ, 


FETCH IND WORD 


3569 




PXCT EA, 


SETUP PXCT STUFF 


3570 




J/JRST1 


CONTINUE BELOW 


3571 


JRST1 : 


MEM READ, 


WAIT FOR DATA 


3572 




[HR] MEM, 


LOAD THE HR 


3573 




LOAD INST EA, ; 


LOAD @ AND XR 


3574 




J/JRSTO 


LOOP BACK 


3575 









T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY- 1984 



MICRO 



U 1010, 2621,4551,0202,4374,0007,0700,0000,0077,7740 
U 1011, 2211,3441,0301,4174,4007,0700,0000,0000,0000 
U 2211, 0104,4751,1217,4374,4007,0700,0000,0000,0001 



U 1014, 2621,4551,0202,4374,0007,0700,0000,0077,7740 
U 1015, 030.3,4443,0000,4174,4007,0700,0000,0000,0000 

U 0300, 2621,4551,0202,4374,0007,0700,0000,0077,7740 



U 0301 , 1064,3771 ,0002,4365,5217,0700,0210,0000,0002 

U 0303, 2416,4553,1400,4374,4007,0331,0010,0007,7400 

U 0307, 3510,3770,1416,4344,4007,0700,0010,0000,0000 

U 0317, 0110,3441,0301,4170,4156,4700,0200,0014,0012 



U 1540, 0762,4443,0000,4174,4467,0551,0000,0001,0010 
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OC7C 


-u 






3577 


l_IA 1 T . 

HAL 1 : 


i ii in 
UUU 


, I lorn »*/*■> p» r- 

;U5EK MODE 


3578 




LPCJ L AR J 


; EXEC MODE --CHANGE PC 


OC7Q 




HALT [HALT] 


; HALT INSTRUCTION 


oOoU 








nco 4 
OQO 1 


_ r\ 

-U 






ooo<J 


UKb I lU. 


UUO 




oDoo 




J/JEN2 


;DISMISS INTERRUPT 


oDo4 


-uuuu 






ococ 
oOoO 


. 1 C hi • 


UUO 


; FLAGS 


ococ 
oooo 




MEM READ, 




3587 




[HR] MEM, ; GET INST 


3588 




LOAD INST EA, ; LOAD XR & @ 


3589 




CALL [JRSTO] ; COMPUTE FLAGS 


3590 


=001 1 






359 1 


JEN2 : 


DISMISS ;DISMISS INTERRUPT 


3592 


-Q 111 


CALL LOAD PI ; RELOAD PI HARDWARE 


3593 


— 4 4 4 4 

- 1 1 1 1 


JUMPA ;G0 JUMP 


3594 








3595 








3596 


1540: 






3597 


JFCL: 


JFCL FLAGS, 


ALL DONE IN HARDWARE 


3598 




SKIP JFCL, ; 


SEE IF SKIPS 


3599 




3T, ; 


ALLOW TIME 


3600 




J/JUMP- ; 


JUMP IF WE SHOULD 


3601 









; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
; SIMPLE . MIC [ 10 , 1141] 15:31 27-JULY-1984 



U 0320, 2621 ,4551 ,0202,4374,0007,0700,0000,0077,7740 

U 0321, 2416,4553,1400,4374,4007,0331,0010,0007,7400 

U 0325, 0335,3333,0012,4174,4437,0700,0000,0000,0000 

U0335, 1525,4223, 0000 , 4364 , 4277 , 0700 , 0200 , 0000 , 00 1 

U 2215, 2511,3771,0005,4365,5007,0700,0200,0000,0002 

U 2511, 2513,0111,0703,4174,4007,0700,0200,0004,0012 

U 2513, 2567,3771 ,0001 ,4361 ,5007,0700,0200,0000,0002 

U 2567, 2576,3333,0005,4174,4467,0700,0000,0001,0004 

U 2576, 0305,5551,1313,4374,4007,0700,0000,0001,0000 



U 1024, 2621 ,4551 ,0202,4374,0007,0700,0000,0077,7740 

U 1025, 0020,4521,1205,4074,4007,0700,0000,0000,0000 

U 0020 , 3571, 3443 , 0300 ,4174, 4007 , 0700 , 02 1 , 0003 , 00 1 2 

U 0024, 3572,0111,0703,4170,4007,0700,0210,0003,0012 

U 0025, 2215,0111,0703,4174,4007,0700,0200,0004,0002 



U 1034, 2621,4551,0202,4374,0007,0700,0000,0077,7740 
U 1035, 2577,3443,0300,4174,4007,0700,0200,0003,0012 
U 2577, 0455,4521,1203,4074,4007,0700,0000,0000,0000 
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3602 .TOC "EXTENDED ADDRESSING INSTRUCTIONS" 
3603 

3604 =0000 

3605 XJEN: UUO ; HERE IF USER MODE 

3606 DISMISS ; CLEAR HIGHEST INTERRUPT 

3607 =0101 READ [MASK], LOAD PI ;N0 MORE INTERRUPTS 

3608 =1101 ABORT MEM CYCLE/ ; AVOID INTERRUPT PAGE FAI 

3609 J/XJRSTFO ; START READING FLAG WORD 

3610 = 
3611 

3612 XJRSTF: MEM READ, [BR]_MEM ; PUT FLAGS IN BR 

3613 [AR]_[AR]+1, ; INCREMENT ADDRESS 

3614 LOAD VMA, ; PUT RESULT IN VMA 

3615 START READ ; START MEMORY 

3616 MEM READ, [PC]_MEM, ; PUT DATA IN PC 

3617 HOLD LEFT ; IGNORE SECTION NUMBER 

3618 READ [BR], LOAD FLAGS, ; LOAD NEW FLAGS 

3619 UPDATE USER ; BUT HOLD USER FLAG 

3620 PISET: [FLG]_[FLG] . AND . NOT . # , ; CLEAR PI CYCLE 

3621 FLG.PI/1, d/PIEXIT ; RELOAD PI HARDWARE 

3622 ; INCASE THIS IS AN 

3623 ; INTERRUPT INSTRUCTION 
3624 

3625 =0 

3626 XPCW: UUO ;USER MODE 

3627 [BR ]_FLAGS ; PUT FLAGS IN BR 

3628 =0*0 

3629 PIXPCW: VMA_[AR], START WRITE, ;ST0RE FLAGS 

3630 CALL [STOBR] ; PUT BR IN MEMORY 

3631 =1*0 VMA_[AR]+1, LOAD VMA , 

3632 START WRITE, ; PREPEARE TO STORE PC 

3633 CALL [STOPC] ; PUT PC IN MEMORY 

3634 =1*1 [AR]_[AR]+1, ;D0 NEW PC PART 

3635 START READ, J/XJRSTF 

3636 = 
3637 

3638 =0 

3639 SFM: UUO 

3640 VMA_[AR], START WRITE ; STORE FLAGS 

3641 [AR]_FLAGS, J/STORE ; STORE AND EXIT 
3642 



T 10KI . MCR[ 10,1141] 11:45 11-AUG-1984 MICRO 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27 - JULY^- 1 984 



D 0256, 0000,1541,1100 

U 1541 , 1 120,4443,0000,4174,4007,0340,0000,0000,0000 

U 1120, 2600,3441,0302,4174,4617,0700,0000,0000,0100 

U 1121, 1 120,3333,0002,4174,4167,0700,0000,0000,0000 

U 2600, 0346,4713,1202,7174,4007,0700,0400,0000,0422 



(254) 
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3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 



.TOC 



256: 



1541 : 

XCT: 

=0 

XCT 1 A : 



XCT 1 : 



"XCT" 

. DCODE 
R , 

.UCODE 



J/XCT ; OPERAND FETCHED AS DATA 



SKIP KERNEL 

[HR]_[AR], 
DBUS/DP, 
LOAD INST, 
PXCT/E1 , 
U/XCT1 

READ [HR], 
LOAD PXCT, 
J/XCT 1 A 

W0RK[YSAVE]_[HR] CLR LH, 
J/XCT2 



SEE IF MAY BE PXCT 

STUFF INTO HR 
PLACE ON DBUS FOR IR 
LOAD IR, AC, XR, ETC. 
ALLOW XR TO BE PREVIOUS 
CONTINUE BELOW 

LOAD PXCT FLAGS 

CONTINUE WITH NORMAL FLOW 

SAVE FOR 10 INSTRUCTIONS 
GO EXECUTE IT 



o 

; T10KI.MCR[10, 1141] 11:45 11-AUG-1984 MICRO 
; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



D 0260, 0000,1544,2100 

D 0261, 0002,1543,3100 

D 0262, 0002,1545,2100 

D 0263, 0000,1546,2100 



U 1543, 2601,3771,0005,4365,5007,0700,0200,0000,0002 

z 

t- 
o 

I 

I U 2601, 1122,0551,1504,0274,4407,0311,0200,0003,0712 

fc 

1 

| 

I U 1544, 2601,3741,0105,4074,4467,0700,0000,0005,0000 

| 

s 

> 

0220 , 3333 , 0005 ,4175, 5003 , 770 1 , 0200 , 0000 , 0002 

2602 , 3333 , 0005 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 
0220 , 4443 , 0000 ,4174, 4463 , 7700 , 0000 , 000 1 , 2000 



U 1122, 

U 1123, 
U 2602, 



U 0220, 
U 0221 , 
U 0222, 



0221 ,3441 ,0301 ,4174,4007,0700,0200,0014,0012 
100 , 3440 , 0404 , 1 74 , 4 1 56 , 4700 , 0400 , 0000 , 0000 
1 400 , 3440 , 0404 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 



254) 



3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
36,79 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
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.TOC 



260: 



"STACK INSTRUCTIONS 



PUSHJ, PUSH; POP, POPJ" 



DCODE 



R , 



.UCODE 



B/0, 
B/2, 
B/2, 



J/PUSHJ 
J/PUSH 
J/POP 
J/POPJ 



; ALL START WITH E IN AR 
1543: 

PUSH: MEM READ, 

[BR ]_MEM 
PUSH1 : [ARX]_AC+ 1000001 , 

INH CRY 18 , 

LOAD VMA , 

START WRITE, 

PXCT STACK WORD, 

3T, 

SKIP CRYO, 
J/STMAC 

1544: 

PUSHJ: [BR]_PC WITH FLAGS, 
CLR FPD, 
J/PUSH1 



PUT MEMOP IN BR 



AC 



BUMP BOTH HALVES OF 
NO CARRY 

START TO STORE ITEM 

START MEM CYCLE 

THIS IS THE STACK DATA WORD 

ALLOW TIME 

GO TO STMAC, SKIP IF PDL OV 



COMPUTE UPDATED FLAGS 
CLEAR FIRST-PART-DONE 
AND JOIN PUSH CODE 



=0 

STMAC: MEM WRITE, 
MEM_JBR ] , 
B DISP, 
J/JSTAC 

;WE MUST STORE THE 

; PAGE FAIL. 

MEM WRITE, 
MEM_[BR] 

SETPDL: SET PDL OV 
B DISP, 
J/JSTAC 



=00 
JSTAC: 



JSTAC1 



[PC]_[AR], 
LOAD VMA, 
FETCH 
AC_[ARX] , 
NEXT INST 
AC_JARX] , 
J/DONE 



WAIT FOR MEMORY 
STORE BR ON STACK 
SEE IF PUSH OR PUSHJ 
;BELOW 

STACK WORD PRIOR TO SETTING PDL OV IN CASE OF 



WAIT FOR MEMORY 
STORE BR 
OVERFLOW 

SEE IF PUSH OR PUSHJ 
BELOW 



PUSHJ- -LOAD PC 

LOAD ADDRESS 

GET NEXT INST 

STORE BACK STACK PTR 

DO NEXT INST 

UPDATE STACK POINTER 

DO NEXT INST 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 

U 1545, 2603,3771,0004,0276,6007,0701,0200,0004,0712 
U 2603, 2604,3771,0005,4365,5007,0700,0200,0000,0002 

U 2604 , 1 1 24 , 055 1 , 0404 , 4374 , 4407 , 03 1 1 , 0000 , 0077 , 7777 

U 1124, 2606,3443,0300,4174,4007,0700,0200,0003,0312 

U 1125, 2605,3443,0300,4174,4007,0700,0200,0003,0312 

U 2605, 0220,3333,0005,4175,5003,7701,0200,0000,0002 

U 2606, 2602,3333,0005,4175,5007,0701,0200,0000,0002 

U 1546, 2607,3771,0004,0276,6007,0701,0200,0004,0712 

U 2607 , 1 1 26 , 055 1 , 0404 , 4374 , 4407 , 03 1 1 , 0000 , 0077 , 7777 

U 1126, 1127, 4443 , 0000 ,4174, 4467 , 0700 , 0000 , 000 1 , 2000 

U 1127, 0221,3771,0001,4361,5007,0700,0200,0000,0002 



v 
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37 1 5 


1545 : 






37 16 


POP : 


r ARX 1 AC 


•GET POINTER 


37 1 7 




1 HAD VMA 


• Annppss np static wnpn 


37 1 8 




START PFAD *3T 


• stapt rvn F 


3719 




PXCT STACK WORD 


* FOR PXCT 


3720 








372 1 




MFM RFAD 


• 1 flAn RP fOUTT TF PAfiF 


3722 




TRPl MFM 

l D(\.J 1*1 C 1*1 


• stack wnpn Tn rp 

1 Ol HvrN WUI\U I KJ D IS 


0700 








170 A 
/ «t*t 




r apx i r apx l +# 

1, MKA J L M(\A J « ft , 


-IIPnATF PnTMTFP 


/ 




M /777777 
ft / //////, 


TM FAPH MAI F 


O / <£0 




T MM PDV 1 J* "3T 
x IMrr vKi lo, O 1 , 


• Rl IT Kin fADDV 


0707 
<j / £. 1 




Dr\ x r UK T \J 


• sff tf n\/FPFi nu/ 


07OQ 

O / <LO 










KJ 


V l*IM J. M K J , 


•FFFFPTTV/F AnnDFQQ 
, CrrCu 1 i VC MUUK E. Oj 


3730 




PXTT DATA 


• FDP PXPT 


373 1 




START WRTTF 


•WHFPF Tn STnPF PFSlll T 


3732 




,1/POPX 1 


• nvFRFi nw 


3733 








3734 




VMA TARl 


; EFFECTIVE ADDRESS 


3735 




PXCT DATA , 


; FOR PXCT 


3736 




START WRITE 


; WHERE TO STORE RESULT 


3737 








3738 




MFM WRITE 


•WAIT FOR MFM 

1 nHl 1 f \J in 1*1 C. 1*1 


3739 




MFM fRRl 


• STORE RR 


3740 




B DI SP 


• Pnp np Pnpj9 

1 rur kj r\ rur u .' 


374 1 




. J/.JSTAC 


•STORE POINTER 


3742 








3743 








3744 


POPX 1 : 


MEM WRITE 


•WAIT FOR MEMORY 


3745 




MEM TRRl 

l*ll_ 1*1 J. U IN J , 


•STORE RR 

, O 1 UlNt LJ IN 


3746 




J/SETPDL 


•GO SET PDL OV 


3747 








3748 


1 546 : 






3749 


POPJ : 


FARXl AC 


•GET POINTER 


3750 




LOAD VMA 


•POINT TO STACK WORD 


375 1 




PXCT STACK WORD 3T 


■ FOR PXCT 

9 1 WIN 1 /AW 1 


3752 




START READ 


•START READ 

9 O 1 rn FX 1 rxLHL/ 


3753 




TARXl FARXl+# 


•UPDATE POINTER 


3754 




#/777777, 


;-1 IN BOTH HALFS 


3755 




INH CRY 18, 3T, 


; INHIBIT CARRY 18 


3756 




SKIP CRYO 


;SEE IF OVERFLOW 


3757 


=0 


SET PDL OV ' 


;SET OVERFLOW 


3758 




MEM READ, [PC] MEM, 


; STICK DATA IN PC 


3759 




HOLD LEET, / 


;N0 FLAGS 


3760 




J/USTAC1 


; STORE POINTER 


3761 









v J 

; T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 

D 0105, 0000,1551,3000 

U 1551, 2610,3770,0303,4344,0007,0700,0000,0000,0000 
U 2610, 1 130,3771 , 0005 , 0276 , 6007 , 052 1 , 0000 , 0000 , 0000 

U 1 130, 1 132,01 13,0503,0174,4407,0521 ,0400,0000,0000 

U 1131, 1 134,01 13,0503,0174,4407,0521 ,0400,0000,0000 

U 1132, 0100,4443,0000,4174,4156,4700,0000,0000,0000. 
U 1133, 0603,4443,0000,4174,4467,0700,0000,0001,2000 

U 1134, 0603,4443,0000,4174,4467,0700,0000,0001,2000 
U 1135, 0100,4443,0000,4174,4156,4700,0000,0000,0000 
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3762 


.TOC 


"STACK INSTRUCTIONS ADJSP" 


3763 








3764 




. DCODE 




3765 


105: 


I-PF, B/0, J/ADJSP 


3766 




.UCODE 




3767 








3768 


1551 : 






3769 


ADJSP: 


[AR] [AR] SWAP, 


; MAKE 2 COPIES OF RH 


3770 




HOLD RIGHT 




3771 




[BR] AC, 


; READ AC, SEE IF MIN 


3772 




3T, 




3773 




SKIP DPO 




3774 


=0 


AC [BR]+[ AR] , 


; UPDATE AC 


3775 




INH CRY 1 8 , 


;N0 CARRY 


3776 




SKIP DPO, 


;SEE IF STILL OK 


3777 




3T, 


ALLOW TIME 


3778 




J/ADJSP 1 


TEST FOR OFLO 


3779 




AC t BR ] + [ AR ] , 


UPDATE AC 


3780 




INH CRY 18 , 


NO CARRY 


3781 




SKIP DPO, 


SEE IF STILL MINUS 


3782 




3T, 


ALLOW TIME FOR SKIP 


3783 




J/ADJSP2 


CONTINUE BELOW 


3784 








3785 


=0 






3786 


ADJSP 1 : 


NEXT INST 


NO OVERFLOW 


3787 




SET PDL OV, 


SET PDL OV 


3788 




J/NIDISP 


GO DO NICOND DISP 


3789 








3790 


=0 






3791 


ADJSP2: 


SET PDL OV, 


SET PDL OV 


3792 




J/NIDISP 


GO DO NICOND DISP 


3793 




NEXT INST 


NO OVERFLOW 


3794 









T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
SIMPLE . MIC [ 10, 1141] 15:31 27- JULY - 1 984 



D 0264, 0000,1552,2100 

D 0265, 0000,1550,2100 

D 0266, 0000,1554,2100 

D 0267, 0000,1555,2100 

U 1550, 2611,3741,0105,4074,4007,0700,0000,0000,0000 

U 2611, 0764,3440,0505,0174,4467,0700,0400,0005,0000 

U 1552, 2612,3741,0105,4074,4467,0700,0000,0005,0000 
U 26 1 2 , 2613,3443, 0300 ,4174, 4007 , 0700 , 0200 , 0003 , 00 1 2 
U 2613, 2614,3333,0005,4175,5007,0701,0200,0000,0002 

U 2614, 0107,0551,0301,4370,4007,0701,0000,0000,0001 

U 1554, 2615,3441 ,0305, 4 174, 4007, 0700, 0200, 0003, 0002 * 
U 2615, 0060,3770,0304,4344,4007,0700,0000,0000,0000 

U 0060, 2757,3771,0003,0276,6007,0700,0010,0000,0000 
U 0064, 3573,3441,0104,4170,4007,0700,0010,0000,0000 

U 0065, 0107,0551,0501,4370,4007,0701,0000,0000,0001 

U 1555, 2616,3771,0005,0276,6007,0700,0000,0000,0000 
U 2616, 2617,3770,0505,4344,4007,0700,0000,0000,0000 

U 2617, 2620 , 3443 , 0500 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 



U 2620, 0274,3771,0005,4365,5007,0700,0200,0000,0002 
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3795 


.TOC 


"SUBROUTINE CALL/RETURN 


-- JSR, JSP, JSA, JRA" 


3796 








3797 




. DCODE 




3798 


264 : 


I , J/JSR 




3799 




I, J/JSP 




3800 




I , J/JSA 




3801 




I , J/JRA 




3802 




. UCODE 




3803 








3804 


1 550 : 






3805 


JSP : 


TBRl PC WITH FLAGS 

L l_> l> J 1 Vr TO J. III I LH VI O 


•GET PC WITH FLAGS 


3806 




CLR FPD, 


•CLEAR FIRST-PART-DONF 


3807 




AC [BR ] , 


•STORE FLAGS 


3808 




.] /JUMP A 


• GO JUMP 


3809 








38 10 


1552 : 






38 1 1 


JSR : 


[BR] PC WITH FLAGS, 


;GET PC WITH FLAGS 


3812 




CLR FPD 


; CLEAR FIRST-PART-DONE 


38 13 




VMA [AR], 


,* EFFECTIVE ADDRESS 


38 14 




START WRITE 


; STORE OLD PC WORD 


38 15 




MEM WRITE, 


;WAIT FOR MEMORY 


38 16 




MEM [BR] 


•STORE 


38 17 




[PC] [AR]+1000001 , 


; PC E+1 


38 18 




HOLD~~LEFT , 


;N0 JUNK IN LEFT 


38 19 




3T , 


; ALLOW TIME FOR DBM 


3820 




J/START 


; START AT E+1 


382 1 








3822 








3823 


1554 : 






3824 


JSA : 


[BR] f AR] . 


, SAVE E 


3825 




START WRITE 


START TO STORE 


3826 




[ARX] [AR] SWAP 


ARX LEFT E 


3827 


=0*0 


[AR] AC, 


GET OLD AC 


3828 




CALL [IBPX] 


SAVE AR IN MEMORY 


3829 


= 1*0 


[ARX] [PC], 


ARX NOW HAS E , , PC 


3830 




HOLD LEFT, 




3831 




CALL [AC ARX] 


GO PUT ARX IN AC 


3832 


= 1*1 


[PC] [ BR ] + 1 00000 1 , 


NEW PC 


3833 




3T , ~~ 


ALLOW TIME 


3834 




HOLD LEFT, 


NO JUNK IN PC LEFT 


3835 




J/START ; 


START AT E+1 


3836 


_ 






3837 








3838 


1555 : 






3839 


JRA: 


[BR] AC ; 


GET AC 


3840 




[BR] [BR] SWAP ; 


OLD E IN BR RIGHT 


3841 




VMA [BR], ; 


LOAD VMA 


3842 




START READ ; 


FETCH SAVED AC 


3843 




MEM READ, ; 


WAIT FOR MEMORY 


3844 




[BR] MEM, ; 


LOAD BR WITH SAVE AC 


3845 




J/JMPA' ; 


GO JUMP 


3846 









T10KI .MCR[ 10, 1141] 
SIMPLE . MIC [ 10, 1141] 



11:45 11 -AUG- 1984 
15:31 27-JULY- 1984 



D 


0030, 


0000, 1557,2100 


D 


0031 , 


0001 , 


1557,2100 


D 


0032, 


0002, 1557,2100 


D 


0033, 


0003, 1557,2100 


D 


0034, 


0004, 1557,2100 


D 


0035, 


0005, 1557,2100 


D 


0036, 


0006, 1557,2100 


D 


0037, 


0007, 1557,2100 


D 


0040, 


0000 


1556 2100 


D 


0041 , 


0000 , 


1556 , 2 100 


D 


0042, 


0000 , 


1 556 , 2 100 


D 


0043, 


0000, 


1 556 , 2 100 


D 


0044, 


0000 , 


1 556 , 2 100 


D 


0045, 


0000, 


1556 , 2 100 


D 


0046, 


0000, 


1556 , 2 100 


D 


0047, 


0000, 


1556 , 2 100 


D 


0050, 


0000, 


1556 , 2 100 


D 


0051 , 


0000 , 


1556 , 2100 


D 


0052, 


0000 \ 


1556^2100 


D 


0053, 


0000, 


1556,2100 


D 


0054, 


0000, 


1556,2100 


D 


0055, 


0000, 


1556,2100 


D 


0056, 


0000, 


1556,2100 


D 


0057, 


0000, 


1556,2100 


D 


0060, 


0000, 


1556,2100 


D 


0061 , 


0000, 


1556,2100 


D 


0062, 


0000, 


1556,2100 


D 


0063, 


oooo, 


1556,2100 


D 


0064 , 


0000, 


1556,2100 


D 


0065, 


0000, 


1556,2100 


D 


0066, 


0000, 


1556,2100 


D 


0067, 


0000, 


1556,2100 


D 


0070, 


0000, 


1556,2100 


D 


0071 , 


0000, 


1556,2100 


D 


0072, 


0000, 


1556,2100 


D 


0073, 


0000, 


1556,2100 


D 


0074, 


0000, 


1556,2100 


D 


0075, 


0000, 


1556,2100 


D 


0076, 


0000, 


1556,2100 


D 


0077, 


0000, 


1556,2100 



D 0100, 0000,1556,2100 

D 0101, 0000,1661,2100 

D 0102, 0000,1662,2100 

D 0103, 0000,1663,2100 
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3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
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.TOC "ILLEGAL INSTRUCTIONS AND UUO'S" 
;LUU0'S TRAP TO CURRENT CONTEXT 



. DCODE 



030: 



B/0, 
B/1, 
B/2, 
B/3, 
B/4, 
B/5, 
B/6, 
B/7, 



J/LUUO 
d/LUUO 
J/LUUO 
J/LUUO 
J/LUUO 
J/LUUO 
J/LUUO 
J/LUUO 



; MONITOR UUO'S 
040: 



TRAP TO EXEC 

J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 
J/MUUO 



EXPANSION OPCODES 



100: 



I , 
I , 
I , 
I , 



J/uuo 

J/UU0101 
,0/UU0102 
J/UUO 103 



; CALL 
; INIT 



CALLI 

OPEN 

TTCALL 



RENAME 

IN 

OUT 

SETSTS 

STATO 

GETSTS 

STATZ 

INBUF 

OUTBUF 

INPUT 

OUTPUT 

CLOSE 

RELEAS 

MTAPE 

UGETF 

USETI 

USETO 

LOOKUP 

ENTER 



;UJEN 

; GFAD 
; GFSB 



T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



D 0000, 0000,1556,2100 

D 0104, 0000,1664,2100 

D 0106, 0000,1666,2100 

D 0107, 0000,1667,2100 

D 0130, 0000,1660,2100 

D 0131, 0001,1660,2100 

D 0141, 0002,1660,2100 

D 0151, 0003,1660,2100. 

D 0161, 0004,1660,2100 

D 0171, 0005,1660,2100 

D 0247, 0000,1665,2100 



U 1661 , 2621 ,4551 ,0202,4374,0007,0700,0000,0077,7740 

U 1662, 2621 ,4551 ,0202,4374,0007,0700,0000,0077,7740 

U 1663, 2621,4551,0202,4374,0007,0700,0000,0077,7740 

U 1664, 2621 ,4551 ,0202,4374,0007,0700,0000,0077,7740 

U 1666, 2621,4551,0202,4374,0007,0700,0000,0077,7740 

U 1667, 2621 ,4551 ,0202,4374,0007,0700,0000,0077,7740 

U 1660, 2621,4551,0202,4374,0007,0700,0000,0077,7740 

U 1665, 2621 ,4551 ,0202,4374,0007,0700,0000,0077,7740 
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3902 


; RESERVED OPCODES 






3903 












3904 


000 




1 * 


i /i ii in 
U/ UUU 




3905 


104 






1 / IC v c 


. icvC 


3906 


lUb 






. 1 /l II in iDfi 

U/ UUU 1 \J\J 


GFMP 


3907 








U / UUU 1 \J 1 


GFDV 


3908 


130 




I , B/ , 


U/ r r l_Ut>l\3 


UFA 


3909 






T Q / 4 

I , B/ 1 , 


.1 / C D - i OMfi 
U/ r r LUNVa 


new 
u r in 


39 10 


141 




I , B/ 2 , 


U/ r r LUIMva 


PAni 

rftUL 


39 1 1 


151 




I » B/ 3 , 


. 1 /CD- f nMfl 
U/ rr LUIMu 


r ou u. 


39 1 2 


161 




I , B/ 4 , 


. 1 / CD - 1 nMO 
U/ r r LUlMva 


r l v !r i_ 


3913 


171 




I , B/5 , 


i / C D — 1 nKi/"* 
U/ rr LUIMva 


cn\/i 
ruvL 


39 14 


247 




I , 


. 1 /l II in OA 1 
U / UUU<£*t f 


DFQFPUFD 
KCDCKV CU 


39 15 






. UCODE 






39 16 












39 1 7 


1661 : 








39 18 


UU0101 : 


UUO 






39 1 9 


1662: 








3920 


UU0102: 


i ii in 
UUU 






392 1 


1663: 








3922 


UU0103: 


i ii in 
UUU 






3923 


1664: 








3924 


JSYS: 


i ii in 
UUU 






jy zo 


1666: 








3926 


UU0106: 


UUO 






3927 


1667: 








3928 


UU0107: 


UUO 






3929 


1660: 








3930 


FP-LONG 


:UU0 






3931 


1665: 








3932 


UU0247: 


UUO 






3933 














; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 1556, 2621,4551,0202,4374,0007,0700,0000,0077,7740 
U 2621 , 1 136,4751 , 1204,4374,4007,0700,0000,0000,0424 

U 1 136, 3670,01 11,1 104,4174,4007,0700,0010,0000,0000 



ED 



8 
5 

i 

I U 1137, 0310,3333,0004,4174,4007,0700,0200,0021,1016 



U 0022 , 3443 , 3333 , 0002 ,4175, 5007 , 070 1 , 02 1 O , 0000 , 0002 
U 0023, 3571 ,0111 ,0704,4170,4007,0700,0210,0023, 1016 
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KS10 MICROCODE V124, 27-JUL-84 
ILLEGAL INSTRUCTIONS AND UUO ' S 



Page 108 



3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
;3947 
;3948 

;3949 
;3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 



; HERE FOR UUO'S WHICH TRAP TO 
1556: 

UUO: ;THIS TAG IS USED FOR 

MUUO: ;THIS TAG IS USED FOR 

[HR]_[HR] . AND . # , 

0/777740, 

HOLD RIGHT 
; THE UUO MACRO DOES THE ABOVE 
UUOGO: [ARX]_0 XWD [424] 

=0 [ARX]_[ARX]+[UBR], 

CALL [ABORT] 
. IF/KIPAGE 
. IF/KLPAGE 

READ [EBR], 

SKIP DPO 

=0 

. ENDI F/KLPAGE 

READ [ARX], 
LOAD VMA, 

VMA PHYSICAL WRITE, 

J/KIMUUO 
. ENDI F/KIPAGE 
. IF/KLPAGE 

[AR]_[HR] SWAP 
=0 [AR]_FLAGS, 

HOLD RIGHT, 

CALL [UUOFLG] 

READ [ARX], 

LOAD VMA, 

VMA PHYSICAL WRITE 
=0* MEM WRITE, 

MEM_[AR], CALL [NEXT] 

MEM WRITE, 

MEM_[PC] 
=000 [HR]_0, 

HOLD RIGHT, CALL [NEXT] 
. ENDI F/KLPAGE 
=010 

UUOPCW: MEM WRITE, 
MEM [HR], 



EXEC 

ILLEGAL THINGS WHICH DO UUO TRAPS 
MONITOR CALL INSTRUCTIONS 
; MASK OUT 9 AND XR 
; MASK 

; KEEP RIGHT 
INSTRUCTION AND GOES TO UUOGO 
; HERE FROM UUO MACRO 
; GET OFFSET TO UPT 
; ADDRESS OF MUUO WORD 
;STOP MEMORY 



;IF BOTH POSSIBLE, SEE WHICH IS ENAB 



:KL PAGING ?? 



GET THE ADDRESS 
START WRITE 
ABSOLUTE ADDRESS 
GO STORE KI STYLE 



PUT IN RIGHT HALF 
FLAGS IN LEFT HALF 
JUST WANT FLAGS 
CLEAR TRAP FLAGS 
LOOK AT ADDRESS 
LOAD THE VMA 
STORE FLAG WORD 
WAIT FOR MEMORY 
STORE 

WAIT FOR MEMORY 
STORE FULL WORD PC 
SAVE E 

BUT CLEAR OPCODE 



CALL [GETPCW] 



WAIT FOR MEMORY 

STORE INSTRUCTION IN KI 

OR FULL WORD E IN KL 
GET PROCESS-CONTEXT-WORD 



=01 1 



NEXT [ARX] PHYSICAL WRITE, ; POINT TO NEXT WORD 
CALL [STOBR] ; STORE PROCESS CONTEXT WORD 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 

U 0027, 2622,4751,1205,4374,4007,0700,0000,0000,0430 

U 2622, 2623,0111,1105,4174,4007,0700,0000,0000,0000 
U 2623, 2624,4521,1203,4074,4007,0700,0000,0000,0000 

U 2624, 1 140,4553,0300,4374,4007,0321 ,0000,0000,0600 

U 1 140, 1 141 ,3551 ,0505,4370,4007,0700,0000,0000,0001 
U 1 141 , 1 142,4553,0300,4374,4007,0321 , 0000 , 000 1 , 0000 

U 1 142, 1 143,3551 ,0505,4370,4007,0700,0000,0000,0004 

U 1 143, 2625,3333,0005,4174,4007,0700,0200,0024, 1016 
U 2625, 2626,3771,0003,4365,5007,0700,0200,0000,0002 

U 2626, 0764,3333,0003,4174,4467,0700,0000,0000,0404 * 



U 03 1 , 2630 , 3333 , 0002 ,4175, 5007 , 070 1 , 02.1 , 0000 , 0002 
U 0312, 2627,3741,0103,4074,4007,0700,0010,0000,0000 

U 0313, 0022,3333,0003,4175,5007,0701,0200,0000,0002 

U 2627, 0001,5551,0303,4374,0004,1700,0000,0000,0600 
U 2630, 0002,0111,0704,4170,4004,1700,0200,0023,1016 



f 

v 
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3981 ;NOW WE MUST PICK ONE OF 8 NEW PC WORDS BASED ON PC FLAGS 

3982 =111 [BR]_0 XWD [430] ; OFFSET INTO UPT 

3983 = 

3984 [BR]_[BR]+[UBR] ; ADDRESS OF WORD 

3985 [AR]_FLAGS ; GET FLAGS 

3986 TL [AR], ; LOOK AT FLAGS 

3987 #/600 ; TRAP SET? 

3988 =0 [BR]_[BR] .0R.#, ; YES — POINT TO TRAP CASE 

3989 ; .. 

3990 HOLD LEFT ; LEAVE LEFT ALONE 

3991 TL [AR], ;USER OR EXEC 

3992 #/ 10000 ; .. 

3993 =0 [BR ]_[BR ] . OR . # , ;USER 

3994 #/4, ; POINT TO USER WORDS 

3995 HOLD LEFT 

3996 READ [BR], ; LOOK AT ADDRESS 

3997 LOAD VMA , ; PLACE IN VMA 

3998 VMA PHYSICAL, ; PHYSICAL ADDRESS 

3999 START READ ; GET NEW PC WORD 

4000 GOEXEC: MEM READ, ;WAIT FOR DATA 

4001 [ AR ]_MEM ; STICK IN AR 

4002 READ [AR], ; LOOK AT DATA 

4003 LOAD FLAGS, ; LOAD NEW FLAGS 

4004 LEAVE USER, ; ALLOW USER TO LOAD 

4005 LOAD PCU, ; SET PCU FROM USER 

4006 d/JUMPA ;JUMP 
4007 

4008 . IF/KIPAGE 

4009 ; HERE FOR TOPS-10 STYLE PAGING 
4010 

4011 =00 

4012 KIMUUO: MEM WRITE, ; STORE INSTRUCTION 

4013 MEM_[HR], CALL [NEXT] ; IN MEMORY 

4014 =10 [AR]_PC WITH FLAGS, ; GET PC WORD 

4015 CALL [UUOFLG] ; CLEAR TRAP FLAGS 

4016 =11 MEM WRITE, ; STORE PC WORD 

4017 MEM_[ AR ] , ; .. 

4018 J/UUOPCW ;G0 STORE PROCESS CONTEXT 

4019 . ENDIF/KIPAGE 
4020 

4021 UUOFLG: [ AR ]_[ AR } . AND . NOT . tt , ; CLEAR TRAP FLAGS 

4022 0/600, HOLD RIGHT, ; IN WORD TO SAVE 

4023 RETURN [1] ; BACK TO CALLER 
4024 

4025 NEXT: NEXT [ARX] PHYSICAL WRITE, ; POINT TO NEXT WORD 

4026 RETURN [2] 
4027 



; T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 3 15:31 27-dULY - 1984 

U 1557, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 0400 , 263 1,3333, 0003 ,4174, 4007 , 0700 , 0200 , 0003 , 00 1 2 

U 2631 , 2632,4551 ,0202,4374,0007,0700,0000,0077,7740 
U 2632, 2633,3333,0002,4175,5007,0701,0200,0000,0002 



U 2633, 2465,0111,0703,4170,4007,0700,0200,0004,0012 
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ILLEGAL INSTRUCTIONS AND UUO'S 

4028 ; HERE FOR LUUO'S 

4029 1557: 

4030 LUUO: [AR]_0 XWD [40] ; AR GET CONSTANT 40 

4031 ; THE LUUO MACRO DOES THE ABOVE INSTRUCTION AND GOES TO LUUO 1 

4032 400: * ; FOR SIMULATOR 

4033 LUUO 1 : READ [AR], ; LOAD 40 INTO 

4034 LOAD VMA , ; THE VMA AND 

4035 START WRITE ; PREPARE TO STORE 

4036 [HR]_[HR] . AND . # , ; CLEAR OUT INDEX AND @ 

4037 #/777740, ; 

4038 HOLD RIGHT 

4039 MEM WRITE, ; STORE LUUO IN 40 

4040 MEM_[HR] 

4041 VMA_[AR]+1, ; POINT TO 4 1 

4042 LOAD VMA, ; PUT 41 IN VMA 

4043 START READ, ; START FETCH 

4044 J/C0NT1 ;G0 EXECUTE THE INSTRUCTION 
4045 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



D 0270, 1015,1560,1100 

D 0271, 0015,1560,3000 

D 0272, 0016,1560,1700 

D 0273, 0017,1560,1700 



U 1560, 1500,0551 , 0303 , 0274 , 4463 , 7701 , 0200 , 0001 ,0001 



D 0274, 1015, 1561 , 1 100 

D 0275, 0015,1561,3000 

D 0276, 0016, 1561 , 1700 

D 0277, 0017, 1561 , 1700 



U 1561 , 1500,2551 , 0303 , 0274 , 4463 , 7701 , 4200 , 0001 ,0001 
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4046 .TOC 

4047 

4048 

4049 270: 

4050 

4051 

4052 

4053 

4054 

4055 1560 

4056 ADD : 
4057 

4058 
4059 
4060 
4061 
4062 

4063 274: 

4064 

4065 

4066 

4067 

4068 

4069 1561 

4070 SUB : 
4071 

4072 
4073 
4074 



ARITHMETIC -- ADD, SUB" 



. DCODE 






R-PF, 


AC, 


J/ ADD 


I-PF, 


AC, 


J/ADD 


RW, 


M, 


J/ ADD 


RW, 


B, 


J/ADD 


.UCODE 







[AR]_[AR]+AC, 
AD FLAGS EXIT, 



3T 



;D0 THE ADD 

; UPDATE CARRY FLAGS 

; STORE ANSWER 

;MISSES 3-TICKS BY 3 NS 



.DCODE 






R-PF, 


AC, 


J/SUB 


I-PF, 


AC, 


J/SUB 


RW, 


M, 


J/SUB 


RW, 


B, 


J/SUB 


.UCODE 







[AR]_AC-[AR] , 
AD FLAGS EXIT, 



3T 



DO THE SUBTRACT 
UPDATE PC CARRY FLAGS 
ALL DONE 

MISSES 3-TICKS BY 3 NS 



T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



D 01 14, 0205, 1457, 1 100 
D 01 15, 0205, 1615, 1 100 



U 1457, 1 144,0551 ,0404, 1274,4007,0562,0000,0000, 1441 



U 1144, 2635,0551,0303,0274,4467,0702,4000,0001,0001 
U 1 145, 2634,7441 , 1205,4174,4007,0700,0000,0000,0000 

U 2634, 1 144,31 1 1 ,0503,4170,4007,0700,0000,0000,0000 



U 1615, 1 146,2551 ,0404, 1274,4007,0562,4000,0000, 1441 

U 1146, 2635,2551,0303,0274,4467,0702,0000,0001,0001 

U 1147, 2635,2551,0303,0274,4467,0702,4000,0001,0001 

U 2635 , 1 1 50 , 3770 , 0303 ,4174, 0007 , 0520 , 0000 , 0000 , 0000 

U 1 1 50 , 1 404 , 455 1 , 0404 , 4374 , 0007 , 0700 , 0000 , 0037 ,7777 

U 1151, 1404,3551 ,0404,4374,0007,0700,0000,0040,0000 
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4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
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Page 112 



.TOC 



114: 



1457: 
DADD: 

=0 

DADD 1 : 



1615: 
DSUB : 

=0 



"ARITHMETIC 
. DCODE 

DBL R , DAC, 
DBL R , DAC, 
.UCODE 



DADD, DSUB' 



J/DADD 
J/DSUB 



[ARX]_[ARX]+AC[1], 4T, 
SKIP CRY 1 

[AR]_[AR]+AC, 

ADD .25, 

AD FLAGS, 4T, 

J/CPYSGN 

[BR]_.NOT. [MASK] 

[AR]_[AR] .OR. [BR] , 

HOLD LEFT, J/DADD 1 



[ARX]_AC[ 1 ]-[ARX] , 4T, 
SKIP CRY 1 
[AR]_AC-[AR]-.25, 
AD FLAGS, 4T, 
J/CPYSGN 

[AR]_AC-[AR] , 4T, 
AD FLAGS 



ADD LOW WORDS 

SEE IF CARRY TO HIGH WORD 

ADD HIGH WORDS 

ADD IN ANY CARRY FROM LOW WORD 

UPDATE PC FLAGS 

COPY SIGN TO LOW WORD 

SET BITS 35 AND 36 IN 

AR SO THAT ADD .25 WILL 

ADD 1 . 



SUBTRACT LOW WORD 
SEE IF CARRY 
NO CARRY 
UPDATE PC FLAGS 
GO COPY SIGN 
THERE WAS A CARRY 
UPDATE CARRY FLAGS 



CPYSGN: FIX [AR] SIGN, SKIP DPO 

=0 [ARX]_[ARX] . AND . ft , #/377777, HOLD RIGHT, J/MOVE 

[ARX]_[ARX] .0R.#, 0/400000, HOLD RIGHT, J/MOVE 



T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 

SIMPLE. MICE 10, 1141] 15:31 27-JULY-1984 



D 0220, 1015, 1641 , 1 100 

D 0221, 0015,1641,3000 

D 0222, 0016,1641,1700 

D 0223, 0017, 1641 , 1700 



U 1641, 2636,3441, 0306 ,0174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2636, 0031,3772,0000,0275,5007,0700,2000,0071,0043 

U 003 1 , 2662 , 3446 , 0606 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 

U 0035, 1 152,3333,0004,4174,4007,0621 ,0000,0000,0000 

U 1152, 2637 , 3445 , 0404 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1 153, 1500,3221 ,0003,4174,4003,7700,0200,0003,0001 



U 2637, 1 154,51 13,0412,4174,4007,0621 ,0000,0000,0000 

U 1 1 54 , 1 1 56 , 3770 , 0404 ,4174, 0007 , 0520 , 0000 , 0000 , 0000 
U 1 155, 1500,7001 ,0003,4174,4003,7700,0200,0003,0001 



U 1 156, 1404,3221 ,0003,4174,4467,0700,0000,0041 , 1000 
U 1 157, 1404,7001 ,0003,4174,4467,0700,0000,0041 , 1000 



D 0224, 1005, 1571 , 1 100 

D 0225, 0005,1571,3000 

D 0226, 0016,1571,1700 

D 0227, 0006,1571,1700 



U 1571, 2640 , 3442 , 0300 ,0174, 4007 , 07O0 , 0000 , OOOO , 0000 

U 2640, 2641 ,3441 ,0316,4174,4007,0700,0000,0000,0000 

U 2641, 0171,3771,0006,0276,6007,0700,2000,0071,0043 

U 0171, 2662 , 3446 , 0606 , 4 1 74 , 4007 , 0700 , 0010 , 0000, 0000 

U 0175, 2642 , 3445 , 0403 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2642 , 1 1 60 , 3770 , 0303 ,4174, 0007 , 0520 , 0000 , 0000 , 0000 



U 1 1 60 , 1 500 , 400 1 , 0004 ,4174, 4003 , 7 700 , 0200 , 0003 , 000 1 
U 1161, 1162,4113,0616,4174,4007,0520,0000,0000,0000 
U 1 162, 1500,7001 ,0004,4174,4003,7700,0200,0003,0001 



U 1 163, 1404,7001 ,0004,4174,4467,0700,0000,0041 , 1000 
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ARITHMETIC ~- MUL, IMUL 

; 4108 .TOC "'ARITHMETIC -- MUL, IMUL" 

; 4109 

; 4110 . DCODE 

; 4111 220: R-PF, AC, J/IMUL 

; 4112 I-PF, AC, J/IMUL 

; 4113 RW, M, J/IMUL 

; 4114 RW, B, J/IMUL 

; 4115 .UCODE 

; 4116 1641: 

; 4117 IMUL: [BRX]_[AR], AC ;C0PY C(E) 

; 4118 Q_AC, SC_35. ; GET THE AC 

; 4119 =0** [BRX]_[BRX]*.5 LONG, ;5HIFT RIGHT 

; 4120 CALL [MULSUB] ; MULTIPLY 

; 4121 READ [ARX], SKIP AD.EQ.O ;SEE IF FITS 

; 4122 =0 [ARX]_[ARX]*2, J/IMUL2 ;NOT ZERO- -SHI FT LEFT 

; 4123 IMUL 1 : [AR]_Q, EXIT ;POSITIVE 

; 4124 

; 4125 IMUL2: [ MASK ]. AND . NOT .[ ARX ] , ;SEE IF ALL SIGN BITS 

; 4126 SKIP AD.EO.O ; . - 

; 4127 =0 FIX [ARX] SIGN, ;NOT ALL SIGN BITS 

; 4128 SKIP DPO, J/IMUL3 ;GIVE + OR - OVERFLOW 

; 4129 [AR]_[MAG] .EOV.Q, EXIT ; NEGATIVE 

; 4130 =0 

; 4131 IMUL3: [AR]_Q, SET AROV, J/MOVE 

; 4132 [AR]_[MAG] .EOV.Q, SET AROV, J/MOVE 

; 4133 

; 4134 

; 4135 .DCODE 

; 4136 224: R-PF, DAC , J/MUL 

; 4137 I-PF, DAC, J/MUL 

; 4138 RW, M, J/MUL 

; 4139 RW; DBL B, J/MUL 

; 4140 .UCODE 

; 4141 

; 414.2 

; 4143 1571: 

; 4144 MUL: [AR], AC ;COPY C(E) 

4145 [T0]_[ARJ ;SAVE FOR OVERFLOW TEST 

; 4146 [BRX]_AC, SC_35. *, GET THE AC 

; 4147 =0** [BRX]_[BRX]*.5 LONG, ;SHIFT OVER 

; 4148 CALL [MULSUB] -.MULTIPLY 

; 4149 [AR]_[ARX]*2 ;SHIFT OVER 

; 4150 FIX [AR] SIGN, SKIP DPO ;SEE IF NEGATIVE 

; 4151 =0 [ ARX]_[MAG] . AND .0, ^POSITIVE 

; 4152 EXIT 

; 4153 [TO] .AND. [BRX] , SKIP DPO ; TRI ED TO SQUARE 1B0? 

; 4154 =0 [ARX]__[MAG] . EQV.Q, EXIT ;Np 

; 4155 [ARX]_[MAG] .EQV.Q, ;YES 

; 4156 SET AROV, J/MOVE 

; 4157 

; 4158 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



D 01 16, 0205, 1566, 1 100 



U 1566, 2643,3447,0303,4174,4007,0700,0000,0000,0000 
U 2643 , 2644 ,4117, 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2644, 0120,3441,0405,4174,4007,0350,0000,0000,0000 



U 0120, 2656,4557,0006, 1274,4007,0701 ,0010,0000, 1441 

U 0121 , 2646,4557,0004, 1274,4007,0701 ,0000,0000, 1442 
U 0124, 0543,3223,0000,1174,4007,0700,0400,0000,1443 



U 0543 , 0623 , 3442 , 0300 ,4174, 4007 , 0700 , 20 10 , 007 1 , 0043 

U 0547 , 2645 , 344 1 , 04 1 6 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 

U 2645, 0130,3227,0004,1174,4007,0700,0400,0000,1442 

U 2646, 0130,3777,0016,1276,6007,0701,0000,0000,1441 



§ U 0130, 2657,3777,0006,0274,4007,0701,0010,0000,0000 

! U 0131, 2661,0113,1616,1174,4007,0701,0400,0000,1441 

* U 0134, 2647,3223,0000,1174,4007,0700,0400,0000,1442 

U 2647, 0563,0111,1604,4174,4007,0700,0000,0000,0000 



U 0563, 0623,3442,0300,4174,4007,0700,2010,0071,0043 
U 0567 , 2650 , 3445 , 0404 ,4174, 4467 , 0700 , 0000 , 0005 , 0000 
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4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 



KS10 MICROCODE V124, 27-JUL-84 Page 114 
ARITHMETIC DMUL 



.TOC 



1 16: 



"ARITHMETIC 



DMUL" 



. DCODE 
DBL R, 
.UCODE 



DAC, 



J/DMUL 



.IF/FULL 
1566: 

DMUL: [AR]_[AR]*.5 



[ARX]_( [ARX] .AND. [MAG] )*.5 



; SHIFT MEM OPERAND RIGHT 



[BR]_[ARX] , 
SKIP FPD 

BRX * BR = = > C(E+1) * C(AC+1) 

=000 



;COPY LOW WORD 
;SEE IF FIRST PART DONE 



[BRX]_(AC[1].AND.[MAG])*.5, 3T , ; GET LOW AC 
CALL [DMULGO] ; START MULTIPLY 

[ARX]_(AC[2] .AND. [MAG])*. 5, 3T , ;FIRST PART DONE 
J/DMUL 1 ;G0 DO SECOND PART 



= 100 



AC[3]_0 



BRX * 
O** 



=> C(E) * C(AC+1) 



DMUL 1 : 
=0*0 



0_[AR], SC_35., 
CALL [QMULT ] 
[TO]_[ARX] 

AC[2]_0, [ARX]_Q*.5, 

J/DMUL2 

[T0]_AC[1]*.5 



; SALT AWAY 1 WORD OF PRODUCT 



GO MULT NEXT HUNK 



BRX * BR ==> C(AC) * C(E+1) 

DMUL2: [BRX]_AC*.5, 
CALL [DBLMUL] 
AC[ 1 ]_[T0]*2, 3T, 
d/DMLINT 
AC[2]_0 

[ARX]_[ARX]+[TO] 

BRX * ==> C(AC) * C(E) 

=0** Q_[AR], SC_35., 
CALL [QMULT] 
[ARX]_[ARX]*2, 
CLR FPD 



SAVE PRODUCT 
SAVE PRODUCT 
GO DO HIGH HALF 
RESTORE TO 



PREPARE TO DO HIGH HALF 

GO DO IT 
INTERRUPT, SAVE TO 
SET FPD AND INTERRUPT 
SAVE PRODUCT 

; PREPARE FOR LAST MUL 



DO THE LAST MULTIPLY 

GO DO IT 
SHIFT BACK 
CLEAR FPD 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

SIMPLE . MIC [ 10, 1141] 15:31 27-JULY-1984 



MICRO 31(254) 
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U 



U 2650, 
U 1164, 
1 165, 
U 2651 , 
U 2652, 
U 2653, 
U 2654, 

U 2655, 
U 1166, 
1 167, 



U 



U 2656, 
U 2657, 
U 2660, 



U 0623, 
U 0627, 
U 2661 , 



1 164, 
2655, 
2651 , 
2652, 
2653, 
2654, 
2655, 



3770. 
3223. 
7003, 
3772, 
7003, 
3772, 
7003, 



0404, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 



0174, 
1 174, 
1174, 
1275, 
1 174, 
1275, 
1 174, 



4007 

4007, 
4007, 
5007, 
4007. 
5007, 
4007, 



0520, 
0700. 
0700, 
0701 , 
0700, 
0701 , 
0700, 



0400. 
0400, 
0400, 
0000, 
0400, 
0000, 
0400, 



0000,0000 
0000, 1441 
0000, 1441 
0000, 1442 
0000, 1442 
0000, 1443 
0000, 1443 



1 1 66 , 374 1 , 1 03 , 4074 , 4007 , 0520 , 0000 , 0000 , 0000 
01 10,3443,0100,4174,4156,4700,0200,0014,0012 
1 400 , 4443 , 0000 ,4174, 4467 , 0700 , 0000 , 004 1 , 1000 



2657,4221, 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
2660 , 3442 , 0500 ,4174, 4007 , 0700 , 2000 , 007 1 , 0043 
0623 , 3447 , 0606 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



2664 ,3446,1 200 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 
0004,01 13,0404,4174,4464, 1701 ,0000,0001 ,0001 
2565,4443, 0000 ,4174, 4467 , 0700", 0000 , 0003 , 0000 



4208 
4209 
4210 
421 1 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 



AC_[ARX] TEST, SKIP DPO 
=0 AC[ 1 ]_Q, d/DMTRAP 

AC[ 1 ]_[MAG] .EQV.Q 
Q_AC[2] 

AC[2]_[MAG] .EQV.Q 
Q_AC [ 3 ] 

AC[3]_[MAG] .EQV.Q 
DMTRAP: [AR]_PC WITH FLAGS, 

SKIP DPO 
=0 DONE 

SET AROV, J/DONE 



;WAYS TO CALL MULTIPLY 
DMULGO: [ARX]_0 
DBLMUL: Q_[BR] S SC__35 . 

[BRX]_[BRX]*.5 

=0** 

QMULT: Q_Q*.5, 

CALL [MULTIPLY] 
[ARX]+[ARX], AD FLAGS, 
3T, RETURN [4] 

DMLINT: SET FPD, U/FIXPC 



. IFNOT/FULL 
1566: 

DMUL : UUO 
. ENDIF/FULL 



PUT BACK INTO AC 

POSITIVE 

NEGATIVE 



LOOK AT FLAGS 

SEE IF AROV SET? 

NO- -ALL DONE 

YES- -FORCE TRAP 1 ALSO 



; CLEAR ARX 



; TEST FOR OVERFLOW 
; AND RETURN 

;SET FPD, BACKUP PC 
: INTERRUPT 




T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



U 2662 , 2663 , 3446 , 0606 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 2663, 0122,4226,0004,4174,4007,0630,2000,0060,0000 



U 2664, 0122,3446,1200,4174,4007,0630,2000,0060,0000 



(254) 
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4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
4261 
4262 
4263 



MULTIPLY SUBROUTINE 
ENTERED WITH: 

MULTIPLIER IN 

MULTIPLICAND IN BRX 
RETURNS 4 WITH PRODUCT IN ARX !Q • 

MUL STEP "A/BRX,B/ARX,DEST/Q_Q*.5,ASHC,STEP SC,MUL DISP" 

MUL FINAL "A/BRX,B/ARX,DEST/Q_Q*2" 



MULSUB: [BRX]_[BRX]* . 5 LONG 
MULSB1: [ARX]_0*.5 LONG, 

STEP SC, 

J/MUL+ 



CLEAR ARX AND SHIFT 
COUNT FIRST STEP 
ENTER LOOP 



MULTIPLY SUBROUTINE 

ENTERED WITH: 

MULTIPLIER IN Q 
MULTIPLICAND IN BRX 
PARTIAL PRODUCT IN ARX 

RETURNS 4 WITH Q*BRX+ARX IN ARXfQ 



MULTIPLY: 



Q_Q* . 5, 
STEP SC, 
J/MUL+ 



SHIFT 

COUNT FIRST STEP 
ENTER LOOP 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
; SIMPLE. MIC[ 10, 1141] 15:31 27-JULY-1984 



U 0122, 0122,3336, 0604 ,4174, 4046 , 2630 , 2000 , 0060 , 0000 

U 0123, 0004,3334,0604,4174,4004, 1700,0000,0000,0000 

U 0126, 0142,1116,0604,4174,4046,2630,6000,0060,0000 

U 0127, 0004, 1 1 14,0604,4174,4004, 1700,4000,0000,0000 

U 0142, 0122,0116,0604,4174,4046,2630,2000,0060,0000 

U 0143, 0004,01 14,0604,4174,4004, 1700,0000,0000,0000 

U 0146, 0142,3336,0604,4174,4046,2630,2000,0060,0000 

U 0147, 0004,3334,0604,4174,4004,1700,0000,0000,0000 
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4264 


; ntK t 


cnD DncTTT\/F 
rUK rUoi l l v c 


o 1 C r O 






A O CC 


— U 1 U 








IN A POSITIVE STEP 


i|OCC 


Ml 11 4- • 


An /R 

AU/ D , 






DON'T ADD 


A ncT 
4«£b / 




Mil! CTFP 

PAUL. 51 tr, 






SHI FT 












KEEP POSITIVE 




-r\-\ 4 








DONE 


a o i r\ 

4«£ f\J 




An /r 

AU/ D , 






DON'T ADD 


A T7 4 
42 / 1 




Mill FT MAI 
HAUL r I IMA l_ , 






SHIFT 


A070 




RFTURN r 4 1 






SHIFT AND RETURN 


4Z / o 


- -f -in 

- 1 IU 








1 IN A POSITIVE STEP 


4274 




An /r - a - ot; 

AU/ D A . , 


Ann 

AUU 


OR 


SI 1RTRACT 


4275 




Ml 1 1 CTCD 






SHTFT AND COUNT 


4276 


r 


. 1 /Ml II - 
U/ l v IU L. 






NEGATIVE NOW 


4277 


— 4 4 4 

- 1 1 1 








DONE 


4278 




An /R - A - OR 
AU/ q A . ZD , 


Ann 

AUU 


OR 


SUBTRACT 


a no 




Mill FT MAI 
mU l_ r 1 IMA l_ , 






SHI FT 


42i3U 










AND RETURN 


428 1 












4282 


. UCDC 

; HtKt 


rUK NtoA 1 1 Vt 


o 1 Cro 






4283 


-U lU 








O IN NEGATIVE STEP 


42o4 


Ml 11 - • 

mUL 


An /A+R 

AU/ A > D , 






ADD 


4285 




Mill CTFP 
|V|U L. ol cr , 






SHIFT AND COUNT 

Jl I JL I 1 HI ML/ \s\J\J*V 1 






t 1 /Ml 11 + 






POSITIVE NOW 


/I OQ7 
4ZO / 


— V/ 1 1 








DONE 


4288 




AD /A+B , 






, ADD 


/I OQQ 




Mill FTMAI 

PAUL. r ilNMu , 






SHIFT 


4290 




RETURN [4] 






;FIX AND RETURN 


429 1 


= 110 








1 IN NEGATIVE STEP 


4292 




AD/B, 






; DON'T ADD 


4293 




MUL STEP, 






; SHIFT AND COUNT 


4294 




J/MUL- 






STILL NEGATIVE 


4295 


= 111 








.DONE 


4296 




AD/B, 






; DON'T ADD 


4297 




MUL FINAL, 






; SHIFT 


4298 




RETURN [4] 






;FIX AND RETURN 


4299 













o 

; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
; SIMPLE . MIC [ 10 , 1 141 ] 15:31 27-JULY- 1984 



D 0230, 1005,1600,1100 

D 0231, 0005,1600,3000 

D 0232, 0016, 1600, 1700 

D 0233, 0006,1600,1700 

D 0234, 1005, 1601 , 1 100 

D 0235, 0005,1601,3000 

D 0236, 0016, 1601 , 1700 

D 0237, 0006, 1601 , 1700 



U 1 600 , 2665 ,3441, 0305 ,0174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2665 , 1 1 70 , 3772 , 0000 , 0275 , 5007 , 0520 , 0000 , 0000 , 0000 

U 1170, 0161,4221,0003,4174,4007,0700,0000,0000,0000 

U 1171, 0161,2441,0703,4174,4007,0700,4000,0000,0000 

U 1 60 1 , 2666 ,3441, 0305 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2666 , 2667 ,3771, 0003 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 

U 2667, 2670,3772,0000, 1275,5007,0701 ,0000,0000, 1441 

U 2670, 0160,3333,0003,4174,4007,0621,0000,0000,0000 

U 1 60 , 1172,7443, 0300 ,4174, 4007 , 062 1 0000 , 0000 , 0000 

U 0161 , 0164,3333,0005,4174,4007,0621 ,0000,0000,0000 



U 0164, 0370,4443,0000,4174,4007,0700,2010,0071,0042 
U 0165, 0603,4443,0000,4174,4467,0700,0000,0051 , 1000 

U 0166, 1 153,3441 ,0304,4174,4007,0700,0000,0000,0000 



U 
U 



1 172, 
1173, 



267 1,3441, 0306 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
O 1 64 , 3333 , 0005 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 
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4300 


. TOC 


"ARITHMETIC 


DIV, IDIV" 


4301 










4302 




.DCODE 






4303 


230: 


R-PF, DAC , 


J/IDIV 




4304 




I-PF, DAC, 


J/IDI V 




4305 




RW , M , 


J/IDIV 




4306 




RW, DBL B, 


d/IDIV 




4307 










4308 


234: 


R-PF, DAC, 


J/DIV 




4309 




I-PF, DAC, 


J/DIV 




4310 




RW, M, 


J/DIV 




431 1 




RW, DBL B, 


J/DIV 




4312 




.UCODE 






4313 










4314 


1600: 








4315 


IDI V : 


L BR J_l AR J , AC 




COPY MEMORY OPERAND 


4316 




Q_AC , 




LOAD Q 


4317 




SKIP DPO 




SEE IF MINUS 


4318 


=0 


[AR]_0, 




EXTEND + SIGN 


4319 




J/DIV 1 




NOW SAME AS DIV 


4320 




[AR]_-1 , 




EXTEND - SIGN 


4321 




J/DIV1 




i III* a T*\ T \ # 

SAME AS DIV 


4322 










4323 


1601 : 








4324 


DI V : 


Tool r »n1 

L BR J_L AR J 




nnnv/ urn nnrn a nin 

COPY MEM OPERAND 


4325 




[ AR ]__AC 




GET AC 


4326 




Q__AC [ 1 ] 




AND AC+1 


4327 




READ L AR J , 




TEST FOR NO DIVIDE 


4328 




SKIP AD.EQ.O 






4329 


=000 


.NOT. [AR] , 




SEE IF ALL SIGN BITS IN AR 


4330 




SKIP AD.EQ.O, 






4331 




J/DIVA 




CONTINUE BELOW 


4332 


=001 








4333 


DIV1 : 


READ [BR], 




SEE IF DIVIDE BY 


4334 




SKIP AD.EQ.O 




ZERO 


4335 


= 100 








4336 


DI V2 : 


SC_34 . , 




NOT ZERO--LOAD STEP COUNT 


4337 




CALL LDIVSUBJ 




DIVIDE 


4338 


= 101 


NO DIVIDE 




DIVIDE BY ZERO 


4339 


= 1 10 


I ARX J_L AR J , 




COPY REMAINDER 


4340 




J/IMUL 1 




STORE ANSWER 


434 1 










4342 










4343 










4344 


=0 








4345 


DIVA: 


[BRX] [AR], 




HIGH WORD IS NOT SIGNS 


4346 




J/DIVB 




GO TEST FOR NO DIVIDE 


4347 




READ [BR], 




ALL SIGN BITS 


4348 




SKIP AD.EQ.O, 




SEE IF ZERO DIVIDE 


4349 




J/DIV2 




BACK TO MAIN FLOW 


4350 











; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
; SIMPLE. MIC[ 10, 1 141 } 15:31 27-JULY-1984 

U 2671, 2672,3221,0004,4174,4007,0700,0000,0000,0000 

U 2672, 0330,3333,0003,4174,4007,0520,0000,0000,0000 

U 0330, 1174,3333,0005,4174,4007,0520,0000,0000,0000 
U 0331, 2753,4551,0404,4374,0007,0700,0010,0037,7777 

U 0333 , 1174, 3333 , 0005 ,4174, 4007 , 0520 , 0000 , OOOO , 0000 



U 1 174, 1 176,21 13,0305,4174,4007,0521 ,4000,0000,0000 

U 1 175, 1 176,01 13,0305,4174,4007,0521 ,0000,0000,0000 

U 1176, 0603,4443,0000,4174,4467,0700,0000,0051,1000 

U 1177, 0161,3441,0603,4174,4007,0700,0000,0000,0000 



1(254) 
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4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
•4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 



DIVB: 



=00 



= 11 



=0 

DIVC: 



=0 . 
NODIV: 



[ARX]_Q 
READ [AR], 
SKIP DPO 
READ [BR], 
SKIP DPO, 
J/DIVC 

CLEAR [ ARX }0, 
CALL [DBLNG1] 
READ [BR], 
SKIP DPO, 
U/DIVC 



[ AR ] - [BR ] , 
SKIP DPO, 
3T, 

J/NODIV 
[AR]+[BR] , 
SKIP DPO, 
3T, 

U/NODIV 

NO DIVIDE 
[AR]_[BRX] , 
J/DIV1 



; MAKE ABS VALUES 
;SEE IF + 

;SEE IF + 

; CONTINUE BELOW 

; FLUSH DUPLICATE SIGN 

; NEGATE AR ! ARX 

;SEE IF TOO BIG 



;COMPUTE DIFFERENCE 
;SEE IF IT GOES 
;ALLOW TIME 
; TEST 

; SAME TEST FOR -VE BR 



TOO BIG 
FITS 

GO BACK AND DIVIDE 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



D 01 17, 0205, 1627, 1 100 

U 1627, 2673 ,4112, 0400 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2673 , 1 200 , 3447 , 0305 ,4174, 4007 , 042 1 , 0000 , 0000 , 0000 

U 1 200 , 1 204 , 3446 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1 20 1 , 1 202 , 3446 , 0505 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 1 202 , 1 204 , 4003 , 0000 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 1203, 2674,4751 , 1217,4374,4007,0700,0000,0000,0005 

U 2674 , 2675 , 3662 , 0000 , 4374 , 0007 , 0700 , 0000 , 0060 , 0000 

U 2675 , 2676 , 2222 , 0000 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 

U 2676 , 2700 , 2446 , 0505 ,4174, 4047 , 0700 , 0040 , 0000 , 0000 



U 1 204 , 2677 , 3446 , 0505 ,4174, 4047 , 0700 , 0000 , 0000 , 0000 

U 1205, 0603,4443,0000,4174,4467,0700,0000,0051 , 1000 

U 2677 , 2700 ,4751,1217,4374, 4007 , 0700 , 0000 , 0000 , 0004 

U 2700, 2701 ,3221 ,0006,0174,4007,0700,0000,0000,0000 

U 2701, 0054,3777,0003,0274,4007,0520,0000,0000,0000 



U 0054, 1206,4552,0000,1275,5007,0701,0000,0000,1441 
U 0055, 2742,6551 , 1717,4374,4007,0700,0010,0000,0007 
U 0075 , 0054 , 3447 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 1 206 , 2724 , 3446 , 0303 ,4174, 4007 , 0700 , 00 1 , 0000 , 0000 

U 1207, 1210,21 13,0305,4174,4007,0521 ,4000,0000,0000 

U 1210, 1212, 21 13,0305,4174,4007,0620,4000,0000,0000 

U 1211, 2702 , 322*1 , 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 1212, 0033,3333,0017,4174,4003,5701,0000,0000,0000 

U 1213, 1214, 1003,0600,4174,4007,0521 ,4000,0000,0000 

U 1214, 0033,3333,0017,4174,4003,5701,0000,0000,0000 

U 1215, 2702 ,3221, 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



254) 



4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
441 1 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
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.TOC 



1 17: 



"ARITHMETIC DDIV" 



. DCODE 
DBL R, 
.UCODE 



DAC, 



J/DDIV 



. IF/FULL 
1627: 
DDIV: 



=0 



=0 



=0 

DDI V 1 : 



DDI V2 : 
DDI V3 : 



=0* 1 *0 
DDI V3A : 



=1*1*1 



=0 

DDI V4 : 



=0 



=0 

DDI V5 : 
=0 



Q_[ARX] . AND. [MAG] 
[BR]_[AR]*.5, 
SKIP AD.LE.O 
[BR]_[BR]*.5 LONG, 
J/DDIV1 

[BR]_[BR]*.5 LONG, 

SKIP DPO 

[MAG] . AND . , 

SKIP AD.EQ.O, J/DDIV1 

[T1]_0 XWD [5] 

Q_Q . OR . # , #/600000 , 

HOLD RIGHT 

o_-o 

[BR]_(-[BR]-.25)*.5 LONG 
ASHC, MULTI PREC/1, 
J/DDIV3 

[BR]_[BR]*.5 LONG, 
ASHC, J/DDIV2 
NO DIVIDE 
[T1]_0 XWD [4] 
[BRX]_Q, AC 



COPY LOW WORD 

COPY MEMORY OPERAND 

SEE IF POSITIVE 

POSITIVE 

CONTINUE BELOW 

NEGATIVE OR ZERO 

SEE WHICH? 

SEE IF ALL ZERO 

CONTINUE BELOW 

NEGATE MEM OP 

SIGN EXTEND THE LOW 

WORD 
MAKE POSITIVE 

; NEGATE HIGH WORD 
USE CARRY FROM LOW WORD 
CONTINUE BELOW 

SHIFT OVER 1 PLACE 

CONTINUE BELOW 

DIVIDE BY ZERO 

MEM OPERAND IS POSITIVE 

COPY 



[AR]_AC*.5, 2T, SKIP DPO ; GET AC- -SEE IF NEGATIVE 



Q_AC[1].AND.[MAG], 
J/DDIV4 

£T1 J_[T1].X0R.#, 
#/7, CALL [QDNEG] 
[AR]_[AR]*.5, 
J/DDIV3A 



[ARJ_[AR]*.5 LONG, 

CALL [DDIVS] 

[ AR ] - [BR ] , 3T, SKIP DPO 

[ AR ] - [BR ] , 2T, 

SKIP AD.EQ.O, J/DDIV5 

[ARX]_Q, J/DDIV5A 



POSITIVE (OR ZERO) 
CONTINUE BELOW 
NEGATIVE 

UPDATE SAVED FLAGS 

SHIFT AROVER 

GO BACK AND LOAD 



SHIFT AR OVER 
SHIFT 1 MORE PLACE 
TEST MAGNITUDE 



; ANSWER FITS 



READ [T1], 3T, DISP/DP, 
Q-[BRX] , 3T, SKIP DPO 
READ [T1], 3T, DISP/DP, 
[ARX]_0 



U/NODDIV 

J/NODDIV 
;COPY LOW WORD 



T10KI .MCR[ 10, 1 141 ] 
SIMPLE. MIC[10, 1141] 



11:45 11-AUG-1984 
15:31 27-JULY-1984 



MICRO 31(254) 
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U 2702, 
U 0314, 
U 0316, 
U 2703, 
U 2704, 
U 1216, 
U 1217, 



U 2705, 



U 0354 
U 0356 
U 2706 

U 0056 
U 0057 



U 2707 
U 2710 
U 1220 
U 1221 

U 2711 

U 2712 
U 2713 

U 2714 

U 1222 
U 1223 

U 2715 
U 2716 

U 2717 
U 2720 



U 0355 
U 0357 



0314 
1240 
2703 
2704 
1216 
2724 
2705 
0354 



,4552, 
,3446, 
,3224, 
, 0002 , 
, 4003 , 
,3442, 
,3221 , 
,4552, 



0000 
1200 
0016 
1600 
0000 
0400 
0004 
0000 



1275,5007, 
4174,4007, 
4174,4007, 
4174,4007, 
1174,4007, 
4174,4007, 
4174,4007, 
1275,5007, 



0701 , 
0700, 
0700, 
0700, 
0700, 
0700, 
0700, 
0701 , 



0000 
2010 
0000 
0000 
0400 
0010 
0000 
0000 



0000, 
,0071, 

0000, 
,0000, 

0000, 
,0000, 
,0000, 
, 0000 , 



1442 
0042 
0000 
0000 
1440 
0000 
0000 
1443 



1 240 , 3446 , 03 1 6 , 4 1 74 , 4007 , 0520 , 20 1 , 007 1 , 0042 
2706 , 3224 , 00 1 6 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 
0056 , 3333 , OO 17, 4174, 4003 , 570 1 , 0000 , OOOO , OOOO 

271 1 ,0001 , 1616,4174,4007,0700,0000,0000,0000 
2707 , 2225 , 00 1 6 , 4 1 74 , 4007 , 0700 , 4000 , OOOO , OOOO 



2710,1772, OOOO , 0274 , 4007 , 0701 , 0040 , OOOO , OOOO 
1 220 , 3223 , OOOO ,0174, 4007 , 062 1 , 0400 , OOOO , OOOO 
2712,3440, 1616,1 174,4007,0700,0400,0000, 1441 
2714,4223,0000, 1 1 74 , 4007 , 0700, 0400 , OOOO, 1441 

2714,4113,1 600 ,1174, 4007 , 0700 , 0400 , OOOO ,1441 



2713 
2714 



,3551 , 
,3440, 



1616 
1616 



,4374, 
, 1 174, 



0007, 
4007, 



0700, 
0700, 



OOOO 
0400 



, 0040 , OOOO 
,0000, 1441 



1222, 3333 , 0003 ,4174, 4007 , 0520 , OOOO , OOOO , OOOO 



2720, 
2715, 

2716, 
2717, 

2720, 
0355, 



,3442, 
,01 12. 

,01 1 1 , 
,0002, 

,0111, 
,3333, 



,0400, 
, 0406 , 

,0503, 
,0600, 

,0503, 
,0017, 



,4174, 
,4174, 

,4174. 
,4174, 

,4174, 
,4174, 



2722 , 3444 , 0303 , 4 1 74 , 
2721 ,2222,0000,4174, 



, 4007 , 
, 4007 , 

, 4007 , 
. 4007 , 

,4007 , 
, 4003 , 



4047. 
4007, 



,0700, 
,0700, 

,0700, 
,0700, 

,0700, 
,5701 , 



0700, 
0700, 



,0000, 
,0000, 

,0040, 
,0000, 

,0040, 
,0000, 



OOOO 
4000 



,0000,0000 
. OOOO , OOOO 

,0000,0000 
,0000,0000 

, OOOO , OOOO 
,0000,0000 



,0000,0000 
,0000,0000 



U 272 1 , 2722 , 2444 , 0303 , 4 1 74 , 4047 , 0700 , 0040 , OOOO , OOOO 



4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 



; HERE WITH EVERYTHING SETUP AND READY TO GO 

DDI V5A : 0_AC [ 2 ] . AND . [MAG] 

=0* Q_Q*.5, SC_34., CALL [DBLDIV] 

[T0]_Q*2 LONG 

Q_Q+[TO] 

AC[0]_Q.AND. [MAG] ; STORE ANSWER 

=0 0_[ARX], CALL [DDIVS] ;SHIFT OUT EXTRA 

[ARX]_Q 

Q_AC[3] .AND. [MAG] 
=0* [T0]_[AR]*.5 LONG, 

SC_34 . , 

SKIP DPO, 

CALL [DBLDIV] 

[T0]_Q*2 LONG 

READ [T1], 3T, DISP/DP 
= 1110 [T0]_JT0]+Q, 

J/DDIV5B 

[T0]_-0*2 

AD/-D-.25, DBUS/RAM, 3T 
RAMADR/ AC# , DEST/Q_AD, 
MULTI PREC/1 
AC_Q, SKIP AD.EQ.O 
=0 AC[1]_[T0], J/DDIV5C 

AC[1J 0, J/DDIV6 



DDI V6 : 
=0 

DDI V7 : 



DDI V8 : 
= 1 101 
DDI V8A ; 



ZERO BIT 



SHIFT Q, PUT AR ON DP 
LOAD SHIFT COUNT 
LOOK AT AR SIGN 
GO DIVIDE 

WHAT SIGN IS QUO 
POSITIVE QUO 
CONTINUE BELOW 
NEGATIVE QUO 



DDI V5B : AC [ 1 ]_[ TO] . AND . [MAG] , J/DDIV6 
DDI V5C 



; STORE LOW WORD IN + CASE 



[TO]_[TO] .0R.#, #/400000, HOLD RIGHT 
AC[1 J_[TO] 



READ [AR] , SKIP DPO 

Q_[ARX], J/DDIV8 
Q__[ARX] + [BRX] 
[AR]_[AR]+[BR] , 
MULTI PREC/1 
Q_Q+ [BRX] 
[AR]_[AR]+[BR] , 
MULTI PREC/1 
READ [T1], 3T, DISP/DP 

[AR]_[AR]*2 LONG, ASHC, 

J/DDIV9 

Q_-Q 

[AR]_(-[AR]-.25)*2 LONG, 
MULTI PREC/1, ASHC 



;LOOK AT AR SIGN 



POSITIVE REMAINDER 

CONTINUE BELOW 

NEGATE REMAINDER IN AR ! 



V . 



T10KI .MCR[ 10, 1 141 ] 
SIMPLE. MIC[ 10, 1 141 ] 



11:45 11 -AUG- 1984 
15:31 27-JULY-1984 



MICRO 31(254) 



U 2722, 1224,01 13,0303, 1 174,4007,0521 ,0400,0000, 1442 

U 1224, 0100,4003,0000,1174,4156,4700,0400,0000,1443 

U 1225, 2723,4002,0000,1174,4007,0700,0000,0000,1443 

U 2723, 0100,7003,0000,1174,4156,4700,0400,0000,1443 



U 0033, 2742,4443,0000,4174,4007,0700,0010,0000,0000 
U 0037, 0603,4443,0000,4174,4467,0700,0000,0051,1000 

U 2724, 0001,3446,0303,4174,4044,1700,0000,0000,0000 



4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
;4493 
;4494 
;4495 
4496 
4497 
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DDI V9 : AC[2]_[AR]+[AR] , 3T , 

SKIP DPO 
=0 AC[3]_Q.AND. [MAG] , 

NEXT INST 

0_0 - AND . [MAG] , AC[3] 
AC[3]_[MAG] .EQV.Q, 
NEXT INST 



; HERE IF WE WANT TO SET NO DIVIDE 
=11011 

NODDIV: CALL [QDNEG] ;FIXUP AC TO AC+3 

NO DIVIDE ; ABORT DIVIDE 

DDIVS: [AR]_[AR]*.5 LONG, ASHC, RETURN [1] 

. IFNOT/FULL 

1627: 

DDIV: UUO 
. ENDI F/FULL 



T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 
SIMPLE. MICC 10, 1 141 ] 15:31 27-JULY-1984 



U 0370 , 2725 , 4662 , 0000 , 4374 , 0007 , 0700 , 00 1 O , 0037 ,7777 

U 0374 , 0002 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 , 0000 , 0000 

U 0375, 0002,2222,0000,4174,4004,1700,4000,0000,0000 

U 0376, 0377,2222,0000,4174,4007,0700,4000,0000,0000 

U 0377, 0002,2441,0303,4174,4004,1700,4000,0000,0000 
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4498 .TOC "ARITHMETIC -- DIVIDE SUBROUTINE" 
4499 

4500 ;HERE IS THE SUBROUTINE TO DO DIVIDE 

4501 ; ENTER WITH: 

4502 ; AR ! Q = D'END 

4503 ; BR = D'SOR 

4504 ; RETURN 2 WITH: 

4505 ; AR = REMAINDER 

4506 ; Q = QUOTIENT 

4507 ; CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL 

4508 ; 

4509 =1000 i 

4510 DIVSUB: Q_Q. AND . # , ; CLEAR SIGN BIT IN 

4511 #/377777, ; MASK 

4512 HOLD RIGHT, / ; JUST CLEAR BIT O 

4513 CALL [DIVSGN] ;D0 REAL DIVIDE 

4514 =1100 RETURN [2] ; ALL POSITIVE 

4515 =1101 Q_-0, RETURN [2] ; -QUO +REM 

4516 =1110 0_-0 ; ALL NEGATIVE 

4517 =1111 [AR]_-[AR], RETURN [2] ; NEGATIVE REMAINDER 
4518 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 2725, 1226,3333, 0003 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 1226, 2727,4221,0004,4174,4007,0700,0000,0000,0000 

U 1227, 1 230 , 2222 , 0000 ,4174, 4007 , 062 1 , 4000 , 0000 , 0000 

U 1 230 , 2726 , 744 1 , 0303 , 4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1231, 2726,2441,0303,4174,4007,0700,4000,0000,0000 

U 2726, 2727,3771,0004,4374,4007,0700,0000,0010,0000 

U 2727 , 1232,3333, 0005 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 



U 
U 



1232, 
1233, 



2731, 3446 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
2730 , 244 1 , 0505 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 



U 2730, 1232,3551, 0404 , 4374 , 4007 , 0700 , 0000 , 0004 , 0000 

U 273 1 , 2732 , 3447 , 0303 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 

U 2732, 2733,3447,0505,4174,4007,0700,0000,0000,0000 

U 2733 , 2734 , 3447 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2734, 1234, 1 1 14,0503,4174,4067,0630,6000,0060,0000 



U 1 234 , 1234,0114, 0503 ,4174, 4067 , 0630 , 2 100 , 0060 , 0000 
U 1235, 2735,3444, 1717,4174,4067,0700,0100,0000,0000 
U 2735 , 1236, 3447 , 0303 ,4174, 4007 , 0520 , OOOO , 0000 , OOOO 



U 1 236 , 2736 , 3444 , 0303 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 

U 1237, 1236,01 1 1 ,0503,4174,4007,0700,0000,0000,0000 

U 2736 , 2737 , 3444 , 0303 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 

U 2737, 2740,4002,1200,4174,4007,0700,0000,0000,0000 



U 2740, 0014,3333,0004,4174,4000, 1701 ,0000,0000,0000 
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4519 ; HERE IS THE INNER DIVIDE SUBROUTINE 

4520 ; SAME SETUP AS DIVSUB 

4521 ; RETURNS WITH AR AND POSITIVE AND 

4522 ; 14 IF ALL POSITIVE 

4523 ; 15 IF -QUO 

4524 ; 16 IF ALL NEGATIVE 

4525 ; 17 IF NEGATIVE REMAINDER 
4526 

4527 BASIC DIV STEP M DEST/Q_Q*2 , DIV, A/BR, B/AR, STEP SC" 

4528 DIV STEP "BASIC DIV STEP, AD/A+B, DIVIDE/1" 

4529 FIRST DIV STEP "BASIC DIV STEP, AD/B-A-.25, ADD .25" 
4530 

4531 DIVSGN: READ [AR], SKIP DPO 

4532 =0 [ARX]_0, J/DVSUB2 REMAINDER IS POSITIVE 

4533 Q_-Q, SKIP AD.EQ.O ; COMPLEMENT LOW WORD 

4534 =0 [AR]_.NOT. [AR] , J/DVSUB 1 ; COMPLEMENT HI WORD 

4535 [AR]_-[AR] ;TWO'S COMPLEMENT HI WORD SINCE 

4536 ; LOW WORD WAS ZERO 

4537 DVSUB1: [ARX]_#, #/l00000 REMAINDER IS NEGATIVE 

4538 DVSUB2: READ [BR], SKIP DPO ; IS THE DIVISOR NEGATIVE 

4539 =0 

4540 DVSUB3: [AR]_[AR]*.5 LONG, ; START TO PUT IN 9-CHIPS 

4541 J/DIVSET ;JOIN MAIN STREAM 

4542 [BR]_-[BR] COMPLEMENT DIVISOR 

4543 [ARX]_[ARX] .0R.#, ; ADJUST SIGN OF QUOTIENT 

4544 0/40000, J/DVSUB3 ;USE 9 CHIPS 

4545 DIVSET: [AR]_[AR]*.5 

4546 [BR]_JBR]*.5 

4547 [BR]_[BR]*.5 

4548 FIRST DIV STEP 

4549 ; HERE IS THE MAIN DIVIDE LOOP 

4550 =0 

4551 DIVIDE: DIV STEP, d/DIVIDE 

4552 [T1]_[T1]*2 LONG, DIVIDE/1, DIV 

4553 [AR]_[AR]*.5, SKIP DPO 

4554 =0 

4555 FIX++: [AR]_[AR]*2 LONG, J/FIX1++ 

4556 [AR]_JAR] + [BR] , J/FIX++ 

4557 FIX1++: [AR]_[AR]*2 LONG 

4558 Q_[MASK] . AND . 

4559 READ [ARX], 3T , ; RETURN TO 1 OF 4 PLACES 

4560 DISP/1, ; BASED ON SIGN OF RESULT 

4561 J/14 ; RETURN 
4562 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 



MICRO 



U 1240, 2741 , 1 1 14,0604,4174,4057,0700,4000,0000,0000 

U 1241 , 2741 ,01 14,0604,4174,4057,0700,0000,0000,0000 

U 2741 , 1242,01 15,0503,4174,4007,0630,2040,0060,0000 

U 1242, 2741 ,01 14,0604,4174,4067,0700,0100,0000,0000 

U 1243, 0002 , 4444 , 0002 ,4174, 4064 , 1 700 , O 1 00 , OOOO , OOOO 
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4563 .TOC "ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE" 

4564 .IF/FULL 

4565 ; CALL WITH: 

4566 ; AR!ARX!Q = 3 WORD DV'END 

4567 ; BR! BRX = 2 WORD D V SOR 

4568 ; RETURN 2 WITH: 

4569 ; AR ! ARX = 2 WORD REMAINDER 

4570 ; CORRECT IF POSITIVE (0 IS ODD) 

4571 ; WRONG (BY BR ! BRX ) IF NEGATIVE (0 IS EVEN) 

4572 ; Q =1 WORD QUOTIENT 

4573 ; CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL 

4574 ; 

4575 ; NOTE : THIS SUBROUTINE ONLY WORKS FOR POSITIVE NUMBERS 

4576 ; 

4577 =0 

4578 ; HERE FOR NORMAL STARTUP 

4579 DBLDIV: [ ARX ]_( [ ARX ] - [ BRX ] ) *2 LONG, ; SUBTRACT LOW WORD 

4580 LSHC, J/DIVHI ; GO ENTER LOOP 

4581 ;SKIP ENTRY POINT IF FINAL STEP IN PREVIOUS ENTRY WAS IN ERROR 

4582 [ARX]_([ARX}+[BRX])*2 LONG, CORRECTION STEP 

4583 LSHC, J/DIVHI ; GO ENTER LOOP 
4584 

4585 ; HERE IS DOUBLE DIVIDE LOOP 

4586 DIVHI: AD/A+B, ; ADD (HARDWARE MAY OVERRIDE) 

4587 A/BR, B/AR, ; OPERANDS ARE AR AND BR 

4588 DEST/ AD*2 , ;SHIFT LEFT 

4589 SHSTYLE/NORM, ; SET SHIFT PATHS (SEE DPE1) 

4590 MULTI PREC/1, ; INJECT SAVED BITS 

4591 STEP SC ; COUNT DOWN LOOP 

4592 =0 AD/A+B, ; ADD (HARDWARE MAY OVERRIDE) 

4593 A /BRX , B/ARX, ; LOW WORDS 

4594 DEST/Q_Q*2, ; SHIFT WHOLE MESS LEFT 

4595 SHSTYLE/DI V , ;SET SHIFT PATHS (SEE DPE1) 

4596 DIVIDE/1, ; SAVE BITS 

4597 J/DIVHI ; KEEP LOOPING 

4598 ;HERE WHEN ALL DONE 

4599 DEST/Q__Q*2, DIV, ;SHIFT IN LAST BIT 

4600 DIVIDE/1, ; GENERATE BIT 

4601 B/HR, RETURN [2] ;ZERO HR AND RETURN 
4602 



T10KI .MCR[ 10, 1141] 
SIMPLE. MIC[ 10, 1 141 ] 



11:45 11 -AUG- 1984 
15:31 27-UULY-1984 



U 2742, 

U 2743, 

U 1244, 
U 1245, 



2743, 

1244, 

2746. 
2744, 



1772, 

4003, 

7772, 
1772, 



0000, 

0000, 

0000, 
0000, 



1274, 

1 174, 

1274, 
1274, 



4007, 

4007, 

4007, 
4007, 



,0701 

,0621 

,0701 
,0701 



, 4000 , 

,0400, 

, 0000 , 
, 4000 , 



0000, 

0000, 

0000, 
0000, 



1443 

1443 

1442 
1442 



U 2744, 1246,4003,0000, 1 1 74 , 4007 , 062 1 , 0400, 0000, 1442 



U 1246, 
U 1247, 



2747, 
2745, 



7772, 
1772, 



0000 
0000 



1274, 
1274, 



4007 
4007 



0701 
0701 



0000, 
4000, 



0000 
0000 



1441 
1441 



U 2745, 1250,4003,0000, 1 1 74 , 4007 , 062 1 ,0400,0000, 1441 



U 1250, 
U 1251, 

U 2746, 
U 2747, 
U 2750, 



2750, 
2750, 

1246, 
1250, 
0024, 



7771 
1771 

4003, 
4003, 
3440, 



, 0003 , 
, 0003 , 

,0000, 
, 0000 , 
0303, 



0274, 
0274, 

1 174, 
1 174, 
0174, 



4007, 
4007 

4007 
4007 
4004 



,0700, 
,0701 , 

,0700, 
,0700, 
, 1 700 , 



0000, 
4000, 

0400, 
0400. 
0400, 



0000, 
,0000, 

0000, 
0000, 
, 0000 , 



U 2751, 2752,4551,0404,4374,0007,0700,0000,0037,7777 

U 2752, 1252,2441,0404,4174,4007,0621,4000,0000,0000 

U 1252, 2202,7441 ,0303,4174,4467,0700,0000,0001 ,0001 

U 1253, 2202,2441 ,0303,4174,4467,0701 ,4000,0001 ,0001 



U 2753 , 1254, 244 1 , 0404 ,4174, 4007 , 062 1 , 4000 , 0000 , 0000 
U 1 254 , 2202 , 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 1255, 2202 ,2441, 0303 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 
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4603 
4604 
4605 
4606 
4607 
4608 
4609 
4610 
461 1 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 



,0000 
,0000 

, 1442 
, 1441 
,0000 
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.TOC 



"ARITHMETIC -- SUBROUTINES FOR ARITHMETIC" 



QUAD WORD NEGATE 
ARGUMENT IN AC ! AC 1 ! AC2 ! AC3 
LEAVES COPY OF AC ! AC 1 IN AR!Q 
RETURNS TO CALL! 24 



QDNEG: 



=0 

C0M2A: 



=0 

C0M1A: 



=0 

COMOA : 



Q_-AC[3] 
AC[3]_Q. AND. [MAG] , 
SKIP AD.EO-0 

Q_.N0T. AC[2] , J/C0M2 
0_-AC[2] 

AC[2]_Q.AND. [MAG] , 
SKIP AD.EQ.O 

Q_.NOT. AC[ 1 ] , J/C0M1 
Q_-AC[1] 

AC[ 1 ]_Q.AND. [MAG] , 
SKIP AD.EQ.O 



;PUT BACK LOW WORD 
;SEE IF ANY CARRY 

CARRY — DO 1'S COMPLEMENT 
NEXT WORD 
PUT BACK WORD 



[ AR ]_. NOT . AC , 
[AR]_-AC, 3T, 



J/COMO 
J/COMO 



AC[2]_0. AND. [MAG] , J/C0M1A 
AC[ 1 ]_0. AND. [MAG] , J/COMOA 
AC_[AR], RETURN [24] 



COM2 
C0M1 
COMO 

. ENDIF/FULL 

DOUBLE WORD NEGATE 
ARGUMENT IN AR AND ARX 
RETURNS TO CALL! 2 

DBLNEG: CLEAR ARXO 
DBLNGA: [ARX]_- [ ARX] , 

SKIP AD.EQ.O 
=0 [AR]_.NOT. [AR] , 

AD FLAGS, J/CLARXO 

[AR]_-[AR], 

AD FLAGS, 3T, J/CLARXO 



FLUSH DUPLICATE SIGN 

FLIP LOW WORD 

SEE IF CARRY 

NO CARRY-- 1 COMP 

CLEAR LOW SIGN 

CARRY 



; SAME THING BUT DOES NOT SET PC FLAGS 
DBLNG1: [ ARX]_- [ ARX] , SKIP AD.EQ.O 
=0 [AR]_.NOT. [AR] , J/CLARXO 

[AR] -[AR], J/CLARXO 



T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 
SIMPLE. MICE 10, 1 141 ] 15:31 27-JULY-1984 
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4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 
4674 
'4675 
4676 
4677 



.TOC 



. NOB IN 

"BYTE GROUP -- IBP, ILDB , LDB , IDPB, DPB " 



; ALL FIVE INSTRUCTIONS OF THIS GROUP ARE CALLED WITH THE BYTE POINTER 
;IN THE AR. ALL INSTRUCTIONS SHARE COMMON SUBROUTINES. 

IBP OR ADJBP 

IBP IF AC#0, ADJBP OTHERWISE 
HERE WITH THE BASE POINTER IN AR 

HERE IS A MACRO TO DO IBP. WHAT HAPPENS IS: 
THE AR IS PUT ON THE DP. 

THE BR IS LOADED FROM THE DP WITH BITS 0-5 FROM SCAD 
THE SCAD COMPUTES P~S 

IBPS IS CALLED WITH A* 4-WAY DISPATCH ON SCADO AND FIRST-PART-DONE 
THE MACRO IS WRITTEN WITH SEVERAL SUB-MACROS BECAUSE OF RESTRICTIONS 
IN THE MICRO ASSEMBLER 



IBP DP 
IBP SCAD 
IBP SPEC 
CALL IBP 



"AD/D, DEST/A, A/AR, B/BR , DBUS/DBM, DBM/DP, BYTE/BYTE 1 " 
"SCAD/A-B, SCADA/BYTE 1 , SCADB/SIZE" 
"SCAD DISP, SKIP FPD" 

"IBP DP, IBP SCAD, IBP SPEC, CALL [IBPS], DT/3T " 



SET P TO 36-S "AD/D, DEST/A , A/BR , B/AR , DBUS/DBM, DBM/DP, SCAD/A-B, SCADB/SIZE, BYTE/BYTE 1 , SCADA/PTR44 " 

; THE FOLLOWING MACRO IS USED FOR COUNTING SHIFTS IN THE BYTE ROUTINES. IT 
; USES THE FE AND COUNTS BY 8. NOTE: BYTE STEP IS A 2S WEIGHT SKIP NOT 1S. 
BYTE STEP "SCAD/A+B,SCADA/S#,S#/1770,SCADB/FE,LOAD FE, 3T,SCAD DISP" 



T10KI .MCR[ 10, 1 141 ] 
SIMPLE. MIC[ 10, 1141 ] 



11:45 11-AUG-1984 
15:31 27-JULY-1984 



MICRO 



D 0133, 0015, 1610, 1 100 

D 0134, 0000,1620,1500 

D 0135, 0000,1624,1100 

D 0136, 0000,1630,1500 

D 0137, 0000,1634,1100 



3 



U 1610, 0240 , 4443 , 0000 ,4174, 4007 , 0360 , 0000 , 0000 , 0000 

U 0240 , 30 1 1 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 ,0223 

U 0241, 0350,3770,0305,4334,4016,7351,0010,0033,6000 

U 0245, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



U 1620, 0350, 3770,0305,4334,4016,7351 ,0010,0033,6000 



U 1624, 2761 ,3333,0003,4174,4217,0701 , 1010,0073,0500 
U 1625, 0411,3443,0100,4174,4007,0700,0200,0014,0012 



U 0411, 0340,3333,0003,4174,4006,5701,1010,0051,0770 
U 0413, 0603,3440,0303,0174,4467,0700,0400,0005,0000 



| U 1630, 0350,3770,0305,4334,4016,7351,0010,0033,6000 

U 1 634 , 2754 , 3775 , 0004 , 0274 , 4007 , 0701 , 0000 , 0000 , 0000 



U 2754, 2755,3443,0400,4174,4007,0701 , 1000,0077,0000 
U 2755 , 0264 ,3771, 0004 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 



U 0264 , 276 1,3333, 0003 ,4174,4217, 0700 , 00 1 , 0000 , 0500 



U 0265, 0360,3333,0003,4174,4006,5701,0010,0000,0000 
U 0267 , 1 400 , 4443 , 0000 ,4174, 4467 , 0700 , 0000 , 0005 , 0000 
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4678 -BIN 
4679 

4680 . DCODE 

4681 133: R, AC, J/IBP ;0R ADJBP 

4682 134: R,W TEST, J/ILDB ;CAN'T USE RPW BECAUSE OF FP 

4683 R, J/LDB 

4684 R,W TEST, J/IDPB 

4685 R , J/DPB 

4686 .UCODE 

4687 1610: 

4688 IBP: SKIP IF ACO ;SEE IF ADJBP 

4689 =000 WORK[ADJPTR]_[AR] , ; SAVE POINTER 

4690 J/ADJBP ;G0 ADJUST BYTE POINTER 

4691 =001 CALL IBP ;BUMP BYTE POINTER 

4692 =101 DONE ;POINTER STORED 

4693 = 
4694 

4695 1620: 

4696 I LDB : CALL IBP ; BUMP BYTE POINTER 

4697 1624: 

4698 LDB: READ [AR], ; LOOK AT POINTER 

4699 LOAD BYTE EA , FE_P, 3T , ; GET STUFF OUT OF POINTER 

4700 CALL [BYTEA] ;COMPUTE EFFECTIVE ADDRESS 

4701 1625: VMA_[PC], FETCH ; START FETCH OF NEXT INST 

4702 =0* READ [AR], ; LOOK AT POINTER 

4703 FE_FE . AND . S# , Stf/0770, ; MASK OUT JUNK IN FE 

4704 BYTE DISP, ;DISPATCH ON BYTE SIZE 

4705 CALL [LDB1] ;GET BYTE 

4706 AC_[AR], CLR FPD, ;ST0RE AC 

4707 J/NIDISP ;G0 DO NEXT INST 
4708 

4709 1630: 

4710 IDPB: CALL IBP ;BUMP BYTE POINTER 

4711 1634: 

4712 DPB: [ARX]_AC*2 ; PUT 7 BIT BYTE IN 28-34 

4713 AD/A, A/ARX, SCAD/A, ; PUT THE BYTE INTO 

4714 SCADA/BYTE5, 3T , ; INTO THE FE REGISTER 

4715 LOAD FE ; FE REGISTER 

4716 [ARXJ_AC ; PUT BYTE IN ARX 

4717 =100 READ [AR], ; LOOK AT BYTE POINTER 

4718 LOAD BYTE EA , ; LOAD UP EFFECTIVE ADDRESS 

4719 CALL [BYTEA] ;COMPUTE EFFECTIVE ADDRESS 

4720 READ [AR], ; LOOK AT POINTER AGAIN 

4721 BYTE DISP, ;DISPATCH ON SIZE 

4722 CALL [DPB 1 ] ;G0 STORE BYTE 

4723 =111 CLR FPD, J/DONE ; ALL DONE 



4724 = 
4725 



T10KI .MCR[ 10, 1 141 ] 
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15:31 27-JULY-1984 



MICRO 



U 0350, 2757,3441,0503,4174,4007,0700,0200,0003,0002 

U 0351, 0004,4443,0000,4174,4004,1700,0000,0000,0000 

U 0352 , 2756 , 3770 , 0503 , 4334 , 40 1 7 , 0700 , 0000 , 0032 , 6000 

U 0353, 0004,4443,0000,4174,4004,1700,0000,0000,0000 



U 2756 , 2757,0111, 0703 , 4 1 70 , 4007 , 0700 , 0200 , 0003 , 0002 
U 2757, 0004,3333,0003,4175,5004,1701,0200,0000,0002 



U 2760, 0070,4443,0000,2174,4006,6700,0000,0000,0000 
U 2761, 0070,4443,0000,2174,4466,6700,0000,0003,0000 

U 0070 , 2763 , 0553 , 0300 , 2274 , 4007 , 0700 , 0200 , 0004 , 07 1 2 

U 0072, 2763,3443,0300,4174,4007,0700,0200,0004,0712 

U 0074, 2762,0553,0300,2274,4007,0700,0200,0004,0512 
U 0076 , 2762 , 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0004 , 05 1 2 

U 2762, 2760,3771 ,0003,4361 ,5217,0700,0200,0000,0502 
U 2763, 0001,4551,1205,4365,5004,1700,0200,0000,0002 



254) 



4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 
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.TOC "BYTE GROUP INCREMENT BYTE POINTER SUBROUTINE" 



[ARJ_[BR], START WRITE, U/IBPX 
RETURN [4] 

SET P TO 36-S, J/NXTWRD 
RETURN [4] 



NO OVERFLOW, BR HAS ANSWER 
FIRST PART DONE SET 
WORD OVERFLOW 

FPD WAS SET IGNORE OVERFLOW 
AND RETURN 



NXTWRD: [AR]_[AR]+1, HOLD LEFT, START WRITE ; BUMP Y AND RETURN 

IBPX: MEM WRITE, MEM_[AR], RETURN [4] 



. TOC "BYTE GROUP BYTE EFFECTIVE ADDRESS EVALUATOR" 



; ENTER WITH POINTER IN AR 
; RETURN 1 WITH (EA) IN VMA 
BYTEAS: EA MODE DISP, 

J/BYTEAO 
BYTEA: SET FPD, 

EA MODE DISP 

= 100* 

BYTEAO: VMA_[AR]+XR, 
START READ, 
PXCT BYTE DATA, 
J/BYTFET 
VMA_[AR] , 
START READ, 
PXCT BYTE DATA, 
d/BYTFET 
VMA_[AR]+XR, 
START READ, 
PXCT BYTE PTR EA , 
J/BYTIND 
VMA_[ AR ] , 
START READ, 
PXCT BYTE PTR EA 

BYTIND: MEM READ, 
[ AR ]_MEM , 
HOLD LEFT, 
LQAD BYTE EA, 
J/BYTEAS 

BYTFET: MEM READ, 

[BR]_MEM. AND. MASK, 
RETURN [1] 



WORD IN BR 

; HERE TO AVOID FPD 
;G0 COMPUTE EA 
;SET FIRST-PART-DONE 
;DISPATCH 

; INDEXING 

; FETCH DATA WORD 

;FOR PXCT 

;G0 WAIT 

;PLAIN 

; START CYCLE 
;F0R PXCT 
;G0 WAIT 
; BOTH 

; START CYCLE 

;FOR PXCT 

;G0 DO INDIRECT 

;JUST @> 

; START READ 

;FOR PXCT 

;WAIT FOR * WORD 

;PUT IN AR 

;JUST IN RH (SAVE P & S) 
;LOOP BACK 



WAIT FOR BYTE DATA 
• WORD. UNSIGNED 
RETURN TO CALLER 



/ 
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MICRO 



U 0340, 0410,4443,0000,4174,4006,7701,0000,0031,0210 



U 034 1 , 2764 , 3770 , 0505 , 4334 , 4057 , 0700 , 0000 , 0073 , 0000 

U 0342 , 2764 , 3770 , 0505 , 4334 , 4057 , 0700 , 0000 , 0074 , 0000 

U 0344, 2764,3770,0505,4334,4057,0700,0000,0075,0000 

U 0345, 2764,3770,0505,4334,4057,0700,0000,0076,0000 

U 0347, 2764,3770,0505,4334,4057,0700,0000,0077,0000 



U 2764, 0002,4257,0503,4374,4004,1701,0000,0000,0376 



254) 
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4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 



.TOC 



"BYTE GROUP 



LOAD BYTE SUBROUTINE" 



CALL WITH: 

WORD IN BR 

POINTER IN AR 

P IN FE 

BYTE DISPATCH 
RETURN2 WITH BYTE IN AR 
LDB SCAD "SCAD/A , BYTE/BYTE5" 

7-BIT LDB "AD/D , DBUS/DBM , DBM/DP , DEST/A , A/BR , B/BR , LDB SCAD" 



=000 
LDB 1 : 



GEN 17-FE, 3T, 
SCAD DISP, 
J/LDBSWP 



GO SEE IF ALL THE BITS 

ARE IN THE LEFT HALF 
GO TO LDBSWP & SKIP IF LH 



; HERE ARE THE 7-BIT BYTES 

=001 7-BIT LDB, SCADA/BYTE 1 , J/LDB7 

=010 7-BIT LDB, SCADA/BYTE2, J/LDB7 

=100 7-BIT LDB, SCADA/BYTE3, J/LDB7 

=101 7-BIT LDB, SCADA/BYTE4, J/LDB7 

=111 7-BIT LDB, SCADA/BYTE5 , J/LDB7 



;F0R 7-BIT BYTES WE HAVE BYTE IN BR 28-35 AND JUNK IN REST OF BR. 
; WE JUST MASK THE SELECTED BYTE AND SHIFT ONE PLACE RIGHT. 



LDB7 : AD/ZERO , RSRC/DA , 

DBUS/DBM , DBM/# , #/376 , 

A/BR, 

B/AR, 

DEST/AD*.5, 3T, 
RETURN [2] 



LH__ZERO , RH_D . AND . A 
D INPUT IS 376 
A IS BR 

PUT RESULT IN AR 
SHIFT RESULT 1 PLACE 
RETURN TO CALLER 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

SIMPLE . MIC [ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



U 0410, 2766,4443,0000,4174,4007,0700,1000,0031,0000 
U 04 1 2 , 2765 , 3770 , 0505 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 



U 2765, 2766,4221,0005,4174,0007,0700,1000,0031,0220 



U 2766, 2767,3447,0505,4174,4007,0700,1020,0041,0010 
U 2767, 2770,3333,0003,4174,4007,0700,1000,0031,7770 
U 2770, 2771,4222,0000,4174,4007,0700,0000,0000,0000 



U 2771, 2772,4224,0003,4174,4027,0700,1020,0041,0010 
U 2772, 2773,4224,0003,4174,4027,0700,0000,0000,0000 
U 2773, 0002,4001 ,0503,4174,4004, 1700, 0000, 0000, 0000 



(254) 
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4806 ;HERE FOR NORMAL BYTES 

4807 =00 

4808 LDBSWP: FE_-FE, ; MAKE P NEGATIVE 

4809 J/LDBSH ;J0IN MAIN LDB LOOP 

4810 =10 [BR ]_[BR ] SWAP ;SHIFT 18 STEPS 
481 1 = 

4812 [BR]_0, HOLD RIGHT, ; PUT ZERO IN LH 

4813 FE_-FE+S#, S#/220 ; UPDATE FE 

4814 LDBSH: [BR ]_[BR ] * . 5 , ;SHIFT RIGHT 

4815 FE__FE+10, ; UPDATE THE FE 

4816 MULTI SHIFT/1 ; FAST SHIFT 

4817 READ [AR], FE_-S-10 ; GET SIZE 

4818 Q_0 ; CLEAR 

4819 GEN MSK [AR], ; PUT MASK IN Q (WIPEOUT AR) 

4820 FE_FE+10, ; COUNT UP ALL STEPS 

4821 MULTI SHIFT/1 ; FAST SHIFT 

4822 GEN MSK [AR] ;0NE MORE- BIT 

4823 [AR]_[BR] . AND.Q, RETURN [2] 
4824 



n 



T10KI .MCR[ 10, 1141] 
SIMPLE. MIC[ 10, 1 141 ] 



11:45 11 -AUG- 1984 
15:31 27-JULY-1984 



MICRO 31(254) 



4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 
4864 
4865 
4866 



.NOBIN 

TOC "BYTE GROUP -- DEPOSIT BYTE IN MEMORY" 
FLOW FOR DPB (NOT 7-BIT BYTE) 

FIRST SET ARX TO -1 AND Q TO ZERO AND ROTATE LEFT 
S PLACES GIVING: 

ARX s Q 
+ j + 

M 1 1 1 1 1 1 1 1 1 1 1000000! 0000000000001 11111! 

+ i + 

!< >! 

S BITS 



NOW THE AC IS LOAD INTO THE ARX AND BOTH THE ARX AND ( 
ARE SHIFTED LEFT P BITS GIVING: 

+ J + 

!??????BBBBBBOOOOOO! 0000001 1111 1000000! 

+ | + 

< >< > < >< > 

JUNK BYTE MASK P BITS 



AT THIS POINT WE ARE ALMOST DONE. WE NEED TO AND 
THE BR WITH .NOT. TO ZERO THE BITS FOR THE BYTE 
AND AND ARX WITH TO MASK OUT THE JUNK THIS GIVES: 

ARX 

+ + 

! OOOOOOBBBBBBOOOOOO ! 
+ ! 

AR 

+ + 

! DDDDDDOOOOOODDDDDD ! 
+ + 

WE NOW OR THE AR WITH ARX TO GENERATE THE ANSWER. 



KS10 MICROCODE V124, 27-JUL-84 Page 132 
BYTE GROUP -- LOAD BYTE SUBROUTINE 



T10KI.MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 0360, 
U 0361 , 
U 0362, 
U 0364, 
U 0365, 
U 0367, 



2774, 
2775, 



2776 
2774 
2774 
2774 
2774 
2774 



,3333,0003 
,3770,0503 
,3770,0503 
,3770,0503 
3770,0503 
,3770,0503 



,4174,4007, 
,4334,4017, 
,4334,4027, 
,4334,4037, 
,4334,4047, 
,4334,4057, 



0700 
0700 
0700 
0700 
0700 
0700 



1000, 
0000, 
0000 , 
0000, 
0000, 
0000, 



0031 ,7770 
004 1 , 0000 
004 1 , 0000 
004 1 , 0000 
004 1 , 0000 
004 1 , 0000 



2775 , 3447 , 1 200 ,4174, 4007 , 0700 , 0200 , 0003 , 0002 
0002 , 3333 , 0003 ,4175, 5004 , 1 70 1 , 0200 , 0000 , 0002 



U 2776 , 2777,4222, 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 2777, 3000,4224,0000,4174,4027,0700, 1020,0041 ,0010 

U 3000 , 300 1,4224, 0000 ,4174, 4027 , 0700 , 0000 , 0000 , 0000 

U 3001 , 3002,3333,0003,4174,4007,0701 , 1000,0073,0000 

U 3002, 3003,4443,0000,4174,4007,0700, 1000,0051 ,0770 

U 3003, 3004,4002,1200,4174,4007,0700,1000,0031,0000 



U 3004, 3005,3444,0404,4174,4007,0700,1020,0041,0010 



U 3005, 3006,7221,0003,4174,4007,0700,0000,0000,0000 

U 3006 , 3007 ,4111, 0503 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3007 , 30 1 O , 400 1 , 0404 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 30 1 O , 2774,3111, 0403 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



254) 



4867 
4868 
4869 
4870 
487-1 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4890 
4891 
4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
491 1 
4912 
4913 
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.BIN 

;DEP0SIT BYTE SUBROUTINE 
;CALL WITH: 

; BYTE POINTER IN AR 

; BYTE TO STORE IN ARX 

; WORD TO MERGE WITH IN BR 

; (E) OF BYTE POINTER IN VMA 

7-BIT BYTE IN FE 
; BYTE DISPATCH 

; RETURN2 WITH BYTE IN MEMORY 

DPB SCAD "SCAD/A+B,SCADAyS#,SCADB/FE,S#/0" 

7-BIT DPB "AD/D ,DEST/A , A/BR , DBUS/DBM , DBM/DP , B/AR , DPB SCAD" 

=000 

DPB 1 : READ [AR], FE_-S-10 f J/DPB6L0 ;N0T SPECIAL 

=001 7-BIT DPB, BYTE/BYTE 1, J/DPB7 

=010 7-BIT DPB, BYTE/BYTE2, J/DPB7 

=100 7-BIT DPB, BYTE/BYTE3, J/DPB7 

=101 7-BIT DPB, BYTE/BYTE4, J/DPB7 

=111 7-BIT DPB, BYTE/BYTES, J/DPB7 

DPB7: [MAG]_[MASK]*.5, START WRITE 

MEM WRITE, MEM__[ AR ] , RETURN [2] 



DPBSLO: 0__0 

GEN MSK [MAG], 
FE_FE+10, 
MULTI SHIFT/1 
GEN MSK [MAG] 
READ [AR], 3T, FE_P 
FE_FE . AND . S# , S#/0770 
0_0 . AND . [MASK] , 
FE_-FE 

[ARX]_[ARX]*2 LONG, 
FE_FE+10, 
MULTI SHIFT/1 
; AT THIS POINT WE HAVE DONE ALL 
; IN ARX AND THE MASK IS IN Q. 
[AR]_.N0T.Q 
[AR]_[AR] .AND. [BR] 
[ARX]_[ARX] .AND.Q 
[AR]_[AR].0R.[ARX], 
J/DPB7 



; CLEAR Q 

; GENERATE MASK IN (ZAP MAG) 

; COUNT STEPS 

; FAST SHIFT 

;ONE MORE BITS 

-AMOUNT TO SHIFT 

; MASK OUT JUNK 

; CLEAR BITS 36 AND 37 

;MINUS NUMBER OF STEPS 

; SHIFT BYTE AND MASK 

; COUNT OUT STEPS 

;FAST SHIFT 

THE SHIFTING WE NEED. THE BYTE IS 



T10KI „MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 



g U 3011, 1256,3770,0304,4344,4007,0700,2000,0071,0011 

1 • 

s U 1256, 1 256, 3447, 0404, 41 74, 4Q07 , 0630, 2000, 0060, 0000 

I U 1257, 3012,4557,0404,4374,4007,0701,0000,0000,0176 

E 
| 

I U 3012, 3013,3771,0004,4374,0007,0700,0000,0000,0000 

| U 3013, 3014,3333,0004,7174,4007,0700,0400,0000,0221 

§ 

! U 3014, 3015,4557,0305,4374,4007,0701,0000,0000,7700 

U 3015, 3016,3770,0505,4344,4007,0700,2000,0071,0003 

U 30 1 6 , 1 260 ,4221, 0005 ,4174, 0007 , 0700 , 0000 , 0000 , 0000 



31(254) 



4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
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TOC "BYTE GROUP -- ADJUST BYTE POINTER" 
IF/FULL 

FIRST THE NUMBER OF BYTES PER WORD IS COMPUTED FROM THE 
FOLLOWING FORMULA: 



( P 

BYTES PER WORD = INT( --- 
( S 



) ( 36-P ) 

) + INT( ) 

) ( S ) 



THIS GIVES 2 BYTES PER WORD FOR THE FOLLOWING 12 BIT BYTE: 



12 



! 6 !////////////! 
I = = = = = = = = = = = = = = =: = = = = = = 

P=18 AND S=12 

WE GET 3 BYTES/WORD IF THE BYTES FALL IN THE NATURAL PLACE: 
j ~~ !\\\\\\\\\\\\! 12~ 

t=s = = s = = s = = = = ssss = ss = s = = ss = = s = = := = 3 

P=12 AND S=12 

;WE COME HERE WITH THE BYTE POINTER IN AR, AND ADJPTR 



ADJBP: [ARX]_[AR] SWAP, 
SC_9. 

=0 

ADJBPO: [ARX]_[ARX]*.5, 
STEP SC, 
J/ADJBPO 

[ARX]_([ARX].AND.#)*.5, 

3T, 

#/176 

[ARX]_#, 

#/0, 

HOLD RIGHT 
WORK[ADJP]_[ARX] 
[BR]_( [AR] . AND.#)*.5, 
3T, 

#/007700 

[BR]_[BR] SWAP, 

SC_3 

[BR]_0, 

HOLD RIGHT 



;MOVE SIZE OVER 
; READY TO SHIFT 

SHIFT P OVER 



SHIFT AND MASK 
WAIT 

6 BIT MASK 
CLEAR LH 



SAVE P 
START ON S 
EXTRACT S 

SHIFT 18 PLACES 

CLEAR LH 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; SIMPLE.MIC[ 10, 1 141 3 15:31 27-JULY-1984 



U 1 260 , 1 260 , 3447 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
U 1261 , 1262,3333,0005, 7174,4007,0621 ,0400,0000,0222 



U 1262, 0660,3442,0400,4174,4007,0700,2000,0071,0042 
U 1263, 1404,3771 ,0003,7274,4007,0701 ,0000,0000,0223 



U 0660, 
U 0662, 



0370 , 377 1 , 0003 , 4374 , 4007 , 0700 , 00 10 , 0000 , 0000 
30 1 7 , 3223 , 0000 ,7174, 4007 , 0700 , 0400 , 0000 , 0224 



U 30 1 7 , 3020 , 3772 , 0000 , 4370 , 4007 , 0700 , 0000 , 0000 , 0044 

U 3020, 3021,1662,0000,7274,4007,0701,4000,0000,0221 

U 3021 , 3022,3771 ,0005,7274,4007,0701 ,0000,0000,0222 

U 3022, 0664,4443,0000,4174,4007,0700,2000,0071,0042 



U 0664, 0370,3771,0003,4374,4007,0700,0010,0000,0000 
U 0666, 3023,3333,0003,7174,4007,0700,0400,0000,0225 

U 3023, 3024,3771,0003,4374,4007,0700,0000,0077,7777 



U 3024 , 1 264 , 066 1 , 0005 , 7274 , 4007 , 0622 , OOOO , 0000 , 0224 



U 1264, 0550,0662,0000,0274,4007,0522,2000,0071,0042 
U 1265, 0603,4443,0000,4174,4467,0700,0000,0051,1000 
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4957 


=0 








*n.lCD1 • 

AUUBr 1 . 


[BR] [BR]*. 5, 


SHIFT S OVER 


4959 




STEP SC, 




4960 




J/ADJBP 1 




496 1 




WORK[ADJS] [BR], 


SALT S AWAY 


4962 




SKIP AD.EQ.O 


SEE IF ZERO 


4963 


=0 


Q [ ARX] , 


DIVIDE P BY S 


4964 




SC 34. , 


STEP COUNT 


4965 




J/ADJBP2 


SKIP NEXT WORD 


4966 




[ AR ]_WORK[ ADJPTR ] , J/MOVE ;S=0 SAME AS 


4967 


=0* 






4968 


ADJBP2 : 


[ AR ]_# , 


PTI 1 AD U/TTM Q T f5M RTT^ 
r ILL AK Will! o-t V3IN D JL I o 


4969 




#/o, 


one TTTl/C 
rub i 1 1 V t 


4970 




y"» A 1 1 rriTWPI ID 1 

CALL LDIV5UBJ 


on nn/mc 
vaU UlvlUt 


497 1 




WQRKLADJQ1 J _U 


oAvt Www 1 JLCIMI 


4972 




Q_# , 


rnMDIITC fOC-D^/Q 
LUMrUlt loO r,J/b 


4973 




0/36. , 




4974 




HOLD LEFT 


SMALL ANSWER 


4975 




0_Q- WORK [ AD JP ] 


CIIDTDAPT D 

5UBTRAC i r 


4976 




[BR J_WORKLADuS J 


nT\/Tr*c nv c 
UivlUt Di b 


4977 




SC_34 . 


b 1 LP tUUN 1 


4978 


=0* 


[ AR ]_# , 


unDC c T flK\ RTTC 
MUKt blvaiN Di I b 


4979 








4980 




pa i i r n t x/^i ir l 

LALL lUl V jUDJ 


GO DIVIDE 


498 1 




W0RK[ADJR2] [AR] 


SAVE REMAINDER 


4982 




[AR] ft, 


ASSUME NEGATIVE ADJ 


4983 




8/111111 


EXTEND SIGN 


4984 




AD/D+O, 


BR_(P/S)-+((36-P)/S) 


4985 




DEST/AD, 




4986 




B/BR, 




4987 




RAMADR/# , 




4988 




DBUS/RAM, 




4989 




WORK/ AD JQ1 , 




4990 




•4T, 




4991 




SKIP AD.EQ.O 


SEE IF ZERO 


4992 


=0 


Q Q+AC, 


GET ADJUSTMENT 


4993 




SC 34. , 


STEP COUNT 


4994 




SKIP DPO, 


GO DO DIVIDE 


4995 




4T, 


WAIT FOR DP 


4996 




J/ADJBP3 


BELOW 


4997 




NO DIVIDE 


BYTES/WORD 


4998 









T10KI .MCR[ 10, 1 141 ] 
SIMPLE„MIC[ 10, 1141] 



11:45 11-AUG-1984 
15:31 27-JULY- 1984 



U 0550, 0551,3771,0003,4374,4007,0700,0000,0000,0000 

U 0551, 0370,3333,0005,7174,4007,0700,0410,0000,0226 

U 0553 , 3025 , 3772 , 0000 , 4374 , 0007 , 0700 , 0000 , 0000 , 0000 

U 3025 , 1 266 , 3333 , 0003 ,4174, 4007 , 042 1 , 0000 , 0000 , 0000 



U 1266, 3027,0661,0005,7274,4407,0701,0000,0000,0223 
U 1267, 3026 , 1 002 , 0700', 4 1 70 , 4007 , 0700 , 4000 , 0000 , 0000 
U 3026, 1266,0551 , 0303 , 7274 , 4007 , 0701 , 0000 , 0000 , 0226 



MICRO 31(254) 



4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
501.1 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
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WE NOW DIVIDE THE ADJUSTMENT BY THE BYTES PER WORD AND FORCE THE 
REMAINDER (R) TO BE A POSITIVE NUMBER (MUST NOT BE ZERO). THE 
QUOTIENT IS ADDED TO THE Y FIELD IN THE BYTE POINTER AND THE NEW 
P FIELD IS COMPUTED BY: 



( 

NEW P = 36-((R * S) + 
( 



( 36-P )) 

RMDR( )) 

( S )) 



WE NOW 
WORDS 
=00 

ADJBP3: 



;WE NOW 

= 11 



=0 

ADJBP4: 



HAVE BYTES/WORD IN BR AND ADJUSTMENT IN Q. DIVIDE TO GET 
TO ADJUST BY. 

[AR]_#, ;POSITIVE ADJUSTMENT 

#/0. 

WORK[ADJBPW]_[BR] , ; SAVE BYTES/WORD & COMPUTE 

CALL [DIVSUB] ; ADJ/( BYTES/WORD ) 

WANT TO ADJUST THE REMAINDER SO THAT IT IS POSITIVE 



Q_#, 
#/0, 

HOLD RIGHT 

READ [AR], 
SKIP AD.LE.O 

AD/D+O, 
DEST/AD, 
B/BR, 
RAMADR/ ft , 
DBUS/RAM, 
WORK/AD JPTR, 
INH CRY 18 , 
3T, 

J/ADJBP5 
Q_Q- 1 , 
HOLD LEFT 

[AR]_[AR]+WORK[ADJBPW] , 
J/ADJBP4 



; ONLY RIGHT HALF 
; ALREADY + 

; ADD Q TO POINTER AND STORE 

•RESULT TO BR 
;PTR IS IN RAM 



;JUST RH 
;WAIT FOR RAM 
-.CONTINUE BELOW 
; NO- -MAKE SMALLER 

•MAKE REM BIGGER 

;NOW HAVE + REMAINDER 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



U 3027, 3030,3441,0306,4174,4007,0700,2000,0071,0043 
U 3030, 0062,3772,0000,7274,4007,0701,0000,0000,0222 

U 0062, 2662,3446,0606,4174,4007,0700,0010,0000,0000 



U 0066, 3031,0661,0003,7274,4007,0701,0000,0000,0225 

U 3031, 3032,2555,0303,4374,4007,0701,4000,0000,0044 

U 3032, 3033,3770,0303,4344,4007,0700,2000,0071,0011 

U 3033 , 1 270 , 377 1 , 0003 , 4370 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1 270 , 1 270 , 3445 , 0303 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 

U 1271, 3034,4551,0505,4374,0007,0700,0000,0000,7777 

U 3034 , 1 400 ,3113, 0305 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 
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5037 


ADJBP5: 


[BRX ] [AR], 


; COMPUTE R*S 


5038 




SC 35. 


;STEP COUNT 


5039 




Q WORK[ADJS] 


; GET S 


5040 


=01* 


[BRX] [BRX]*. 5 LONG, 


; SHIFT OVER 


5041 




CALL [MULSUB] 




5042 




AD/D+O, 


S AR__(R*S) + RMDR(36-P)/S 


5043 




DEST/AD, 




5044 




B/AR , 




5045 




RAMADR/# , 




5046 




3T , 




5047 




DBUS/RAM, 




5048 




W0RK/ADJR2 




5049 




FAR! (#-rARl)*2 


COMPUTE 36-AR 


5050 




3T , 


AND START LEFT 


5051 




#/36. 




5052 




[AR] [AR] SWAP, 


PUT THE POSITION BACK 


5053 




SC 9. 




5054 




[AR] #, 


CLEAR JUNK FROM RH 


5055 




#/o, 




5056 




HOLD LEFT 




5057 


=0 






5058 


ADJBP6: 


[AR] [AR]*2, ; 


LOOP OVER ALL BITS 


5059 




STEP SC, ; 




5060 




J/ADJBP6 ; 




5061 




[BR] [BR ] . AND . # , ; 




5062 




#/007777, ; 




5063 




HOLD RIGHT ; 




5064 




AC [AR] .OR. [BR] , ; 


ALL DONE 


5065 




J/DONE 




5066 


. I FNOT/FULL 




5067 








5068 


ADJBP: 


UUO ;N0 ADJBP IN SMALL 


5069 






; MICROCODE 


5070 


. ENDI F/FULL 




5071 









T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 31(254) 
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BYTE GROUP ADJUST BYTE POINTER 



5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 



.TOC 



. NOBIN 
"BLT " 



THIS CODE PROVIDES A GUARANTEED RESULT IN AC ON COMPLETION OF 
THE TRANSFER (EXCEPT IN THE CASE AC IS PART OF BUT NOT THE LAST WORD 
OF THE DESTINATION BLOCK). WHEN AC IS NOT PART OF THE DESTINATION 
BLOCK, IT IS LEFT CONTAINING THE ADDRESSES OF THE FIRST WORD FOLLOWING 
THE SOURCE BLOCK (IN THE LH), AND THE FIRST WORD FOLLOWING THE DEST- 
INATION BLOCK (IN THE RH). IF AC IS THE LAST WORD OF THE DESTINATION 
BLOCK, IT WILL BE A COPY OF THE LAST WORD OF THE SOURCE BLOCK. 

IN ADDITION, A SPECIAL-CASE CHECK IS MADE FOR THE CASE IN WHICH EACH 
WORD STORED IS USED AS THE SOURCE OF THE NEXT TRANSFER. IN THIS CASE, 
ONLY ONE READ NEED BE PERFORMED, AND THAT DATA MAY BE STORED FOR EACH 
TRANSFER. THUS THE COMMON USE OF BLT TO CLEAR CORE IS SPEEDED UP. 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 



MICRO 



U 3035 , 1 272 , 3770 , 0604 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1272, 3565,3443,0400,4174,4007,0700,0210,0004,0712 

U 1273, 3036,4221,0006,4174,0007,0700,0000,0000,0000 
U 3036, 3037,2112,0306,4174,4007,0700,4000,0000,0000 
U 3037, 3040,0001,0705,4174,4007,0700,0000,0000,0000 

U 3040, 3041,3770,0505,4344,0007,0700,0000,0000,0000 

U 3041, 3042,0551,0505,0274,4407,0701,0000,0000,0000 
U 3042, 0002,3771,0013,4370,4004,1700,0000,0000,0001 

D 0251, 0000,1640,2100 

U 1640, 3035,3771,0006,0276,6007,0700,0010,0000,0000 
U 1642, 3564,3440,0505,0174,4007,0700,0410,0000,0000 

U 1643, 3043,0551,0405,4370,4007,0701,0000,0000,0001 
U 3043, 1274,21 13,0506,4174,4007,0331 ,4000,0000,0000 

U 1274, 3046,3443,0600,4174,4007,0700,0200,0003,0312 
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BLT 



5088 




. BIN 




5089 










. HERE 


TO SFTUP FOR A RIT/llRARIT 




509 1 








5092 


SETBLT 


• FARXl iRRXl SWAP 


•COPY TO ARX (SRC TN RH) 


5093 




VMA fA~RXl 


» addpfss nF ftpst wnpn 


5094 




START RFAD 




5095 




PXCT RLT SRC 




5096 




CAl 1 r PI APXf 1 


-PI FAP THF 1 FFT HAI F OF 


5097 




iRrx! n 


- RHTH SPP AMD fJFST 

, DU I n jf\v MINLs UCO 1 


5098 




HDI n PTC2HT 








n r ADi-FRDyl 

W LMK J L DKA J 


• miimrfp of wnpnQ Tn win\/F 

, IMUmDCK Ur WUKUO IU WUVC 


r inn 




f rp 1 n+ i 








iRPl iRPl QWAD 


* rnpv Tn priTH mai fq 






nUi_U K i Van 1 








f RP 1 AP+ r RP 1 


. p T K|A I AC 

, r x inm i_ Avi 


5 104 




TWH CRY1R 

X i N i 1 vi\ I IO 


■kFFP AT mPPFTT TF nFST TS 777777 


5 105 




STATE iRLTl RETURN i2l 


• SFT PAfiF FATI Fl AfiS 


5 106 








5 107 




. DC0DE 




5 108 


25 1 : 


I , J/BLT 




5 109 




. UC0DE 




5110 








5111 


1 640 : 






5112 


BLT : 


iRRXl AC CAI 1 TSFTRI Tl 


. ccTru THF AC iRFST TM PH 1 
r r l i un inc. au \ulo i x in in n / 


5113 


1642 : 


AC iRPl 


■ STHPF RACK TN AP 


5114 




pai i r t nAnn 1 


■ i nAn ftpst wnpn TMTn n 

, LUAU rxKOl WUI\U UN 1 U W. 




4 fi^q . 
1 0*4 . 


TrpI TapxI+i nnnnn \ 




5116 




3T , 




5117 




HOLD LEFT 




5118 




[BR]-[BRX3, 3T, 


•IS THIS THE CORE CLEAR CASE 


51 19 




SKIP ADR.EQ.O 




5120 


=0 






5121 


BLTLP1 


: VMA [BRX], 


NO, GET DEST ADR 


5122 




START WRITE, 


START TO STORE NEXT WORD 


5123 




• PXCT BLT DEST, 


WHERE TO STORE 


5124 




J/BLTG0 




5125 








5126 




;SKIP TO NEXT PAGE IF CLEARING CORE 


5127 









T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 1275, 3044,3443,0600,4174,4007,0700,0200,0003,0312 

U 3044 , 1276,3223, 0000 ,4174, 4007 , 067 1 , 0200 , 0000 , 0002 

U 1 276 , 3047 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1277, 1 300 ,2113, 0603 ,4174, 4007 , 052 1 , 4000 , 0000 , 0000 

U 1 300 , 1 400 , 422 1 , 00 1 3 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1301 , 1302,01 1 1 ,0704,4174,4007,0370,0000,0000,0000 

U 1302, 3044,01 1 1 ,0706,4170,4007,0700,0200,0003,0312 

U 1303, 3046,01 1 1 , 0706 , 4 1 70 , 4007 , 0700 , 0200 , 0003 , 03'1 2 

U 3045 , 1 274 , 3772 , 0000 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 3046 , 3047 , 3223 , 0000 ,4174, 4007 , 070 1 , 0200 , 0000 , 0002 

U 3047, 1304,21 13,0603,4174,4007,0521 ,4000,0000,0000 

U 1 304 , 1 400 , 4 2 2 1 , 00 1 3 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1305, 3050,01 1 1 ,0706,4174,4007,0700,0000,0000,0000 

U 3050, 3045,01 1 1 ,0704,4170,4007,0700,0200,0004,0712 



U 3051, 
U 3052, 
U 3053, 



3052 , 3770 , 0303 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 
3053 ,3771, 0003 , 7270 , 4007 , 070 1 , 0000 , 0000 , 02 1 4 
1 100 , 3440 , 0303 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 
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5128 
5129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
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BLT 



; CLEAR CORE CASE 

VMA_[BRX], 
START WRITE, 
PXCT BLT DEST 

BLTCLR: MEM WRITE, 
MEM_Q, 
SKIP/-1 MS 

=0 J/BLTGOT 

[BRX]-[AR] , 
3T, 

SKIP DPO 
=0 END BLT, 

J/DONE 

[ARX]_[ARX]+1 , 
SKIP IRPT 
=0 VMA_[BRX]+1, 
LOAD VMA, 
PXCT BLT DEST, 
START WRITE, 
J/BLTCLR 
VMA_[BRX]+1 , 
LOAD VMA, 
PXCT BLT DEST, 
START WRITE, 
J/BLTGO 

; HERE FOR NORMAL BLT 
BLTLP: MEM READ, 
Q MEM, 

j/bltlp 1 
bltgo: mem write, 

MEM_Q 
BLTGOT: [BRX]-[AR], 
3T, 

SKIP DPO 
=0 END BLT, 

d/DONE 

[BRX]_JBRX] + 1 
VMA_[ARX]+1 , 
LOAD VMA, 
PXCT BLT SRC, 
START READ, 
J/BLTLP 



; STORE WORD 

; 1 MS TIMER UP 

;G0 TAKE INTERRUPT 

:BELOW E? 



;NO--STOP BLT 

;FOR PAGE FAIL LOGIC 

;YES--KEEP STORING 
; INTERRUPT 



; FETCH 

; STORE 
;BELOW E? 

;NO--STOP BLT 

; UPDATE DEST ADDRESS 

;YES — MOVE 1 MORE WORD 



; HERE TO CLEAN UP AFTER BLT PAGE FAILS 
BLT-CLEANUP: 

[ AR ]_[ AR ] SWAP ;PUT SRC IN LEFT HALF 

[AR]_WORK[SV.BRX] , 

HOLD LEFT 

AC_[AR], ; STORE THE AC AND RETURN 

J/CLEANED 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



U 0670 , 3035 ,3771, 0006 , 0276 , 6007 , 0700 , 00 1 O , 0000 , 0000 
U 0672, 3054,3440,0505,0174,4007,0700,0400,0000,0000 



U 3054, 0006,3772,0000,4365,5003,7700,0200,0000,0002 
IT 

U 0006 , 3062 , 3446 , 1 200 ,4174, 4007 , 0700 , 0000 , 0000 , OOOO 



U 0007, 0570,4665,0017,4374,4007,0700,0000,0000,0377 

U 0570, 3067,4443,0000,4174,4007,0700,1010,0071,1767 

U 0571 , 3070,4443,0000,4174,4007,0700, 1010,0071 , 1772 

U 0573, 3055,4662,0000,4374,4007,0700,0000,0000,1774 

U 3055, 3056,3001,1717,4174,4007,0700,0000,0000,0000 

U 3056 , 3057 , 5742 , 1 700 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3057, 3060,3444,0012,4174,4007,0700,0000,0000,0000 

U 3060 , 306 1 , 3444 , 00 1 2 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3061, 3066,4521,1717,4374,4007,0700,0000,0077,7774 



r 



254) 



KS10 MICROCODE V124, 
BLT 
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5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 

5208 
5209 
5210 
521 1 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 



. I F/UBABLT 

.TOC "UBABLT - BLT BYTES TO/FROM UNIBUS FORMAT" 

THESE INSTRUCTION MOVE WORDS FROM BYTE TO UNIBUS AND UNIBUS TO BYTE 
FORMAT. FORMATS ARE: 

BYTE FORMAT: 



BYTE 



UNIBUS FORMAT 



2 BITS 



BYTE 1 ; ; BYTE 2 ; ; BYTE 3 



4 BITS 



BYTE 1 BYTE O 2 BITS BYTE 3 BYTE 2 



=0* 
BLTX: 



BLTXLP: 



= 110 



=00 
=01 
= 11 



[BRX]_AC, 
CALL [SETBLT] 
AC_[BR] 

MEM READ, 
Q_MEM, 
B DISP 
Q_Q* . 5 , 

J/BLTBU 1 



; FETCH THE AC (DEST IN RH) 
;D0 THE REST OF THE SETUP 
; STORE THE FINAL AC IN AC 

; READ THE SOURCE WORD 
; FROM MEMORY 

;SKIP IF BLTUB (OPCODE 717) 

; BLTBU (OPCODE 716) - SHIFT RIGHT 1 

;CONTINUE INSTRUCTION 



AD/D . AND . Q , DBUS/DBM , ; BLTUB 

DBM/ # , #/377 , DEST/AD*2 , B/T 1 



FE_S#,S#/1767, 
CALL [T1LSH] 
FE_S#,S#/1772, 
CALL [Q_RSH] 
0_Q . AND . # , #/00 1774 

AD/A . OR . , A/T 1 , DEST/ AD, 
B/T1 

AD/57, RSRC/OA, A/T 1 , 

DEST/ Q_AD 

Q_Q*2 

Q_Q*2 

[T1]_[T1] . AND . # CLR RH, 

#/777774, J/BLTXV 



MASK LOW BYTES, SHIFT LEFT 
; AND STORE RESULT 



;-9 MORE BITS TO PUT LOW BYTE OF LH 

; IN TOP OF LH SHIFT LEFT 

;-6 BITS TO PUT HI BYTE TO RIGHT 

; OF LOW BYTE. 

; KEEP ONLY HI BYTES 

; MERGE PAIRS OF BYTES. NOW SWAPPED, 

;BUT STILL IN HALF-WORDS 

; CLEAR LH OF WHILE LOADING 

; RH WITH LOW WORD 

; SHIFT LOW WORD ACROSS 1/2 WORD 

; AND INTO FINAL POSITION 

; CLEAR ALL BUT HIGH 16-BIT WORD 

; FROM T1 AND CONTINUE 



© 

; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 

U 3062 , 3063 , 3446 , 1 200 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 3063, 3064,3446, 1200,4170,4007,0700,0000,0000,0000 
U 3064 , 3065 ,3446,1 200 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3065, 0610,4665,0017,4374,4007,0700,0000,0000,0377 
ION 

U 0610, 3067,4443,0000,4174,4007,0700,1010,0071,1771 

U 061 1 , 3070,4443,0000,4174,4007,0700, 1010,0071 , 1770 
U 06 1 3 , 3066 , 4662 , 0000 , 4374 , 4007 , 0700 , 0000 , 0000 , 0377 



U 3066, 3071,3002,1700,4174,4007,0700,0000,0000,0000 

U 3067, 0001,3445,1717,4174,4004,1700,1020,0041,0001 
U 3070, 0002,3446,1200,4174,4004,1700,1020,0041,0001 



U 307 1 , 3072 , 3443 , 0600 ,4174, 4007 , 0700 , 0200 , 0003 , 03 1 2 

U 3072 , 3073 , 3223 , 0000 ,4174. 4007 , 0701 , 0200 , 0000 , 0002 

U 3073 , 1 306 ,2113, 0603 , 4 1 74 , 4007 , 052 1 , 4000 , 0000 , 0000 

U 1 306 , 1 400 , 422 1 , 00 1 3 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1307, 3074,0111,0706,4174,4007,0700,0000,0000,0000 



U 3074, 3054,0111,0704,4170,4007,0700,0200,0004,0712 



31(254) 



5227 
5228 
5229 
5230 
5231 

5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
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UBABLT - BLT BYTES TO/FROM UNIBUS FORMAT 



BLTBU1 : 



=00 
=01 
= 11 

BLTXV : 



T1LSH: 
Q_RSH: 

BLTXW: 



0_Q* . 5 

Q_Q*. 5, HOLD LEFT 
Q_Q*. 5, HOLD LEFT 
AD/D . AND . Q , DBUS/DBM , 



DBM/# , #/377 , DEST/AD*2 , B/T 1 



NOW IN 1/2 WORDS 

INSERT A NULL BIT IN RH 

ONE MORE - NOW IN HALF WORDS 

BUT NOT SWAPPED. COPY RIGHT BYTE 



;T0 T1 AND SHIFT LEFT 1 POSI 



FE_S#,S#/1771 , 
CALL [T1LSH] 
FE_S#,S#/1770, 
CALL [Q_RSH] 
Q Q.AND.#,#/377 



Q [T13.0R.Q, 

j/bltxw 



-7 BITS MORE 
TO FINAL RESTING PLACE 
-8. LEFT BYTES MOVE RIGHT 
TO FINAL RESTING PLACE 
WANT ONLY THE NEW BYTES 



; MERGE RESULTS 

; AND STUFF IN MEMORY 



[T1 ]_[T1 ]*2, SHIFT, RETURN [1] 
Q Q*. 5, SHIFT, RETURN [2] 



VMA_[BRX] , START WRITE, 
PXCT BLT DEST 
MEM WRITE , MEM__0 
[BRX]-[AR] ,3T,SKIP DPO 
=0 END BLT , J/DONE 

[BRX]_[BRX]+1 
\/MA_[ARX] + 1 , LOAD VMA, 
PXCT BLT SRC, START READ, 
J/BLTXLP 
. ENDI F/UBABLT 



DEST TO VMA 

STORE 
DONE? 
YES 

NO, INC DEST 

AND SOURCE (LOADING VMA) 
START UP MEMORY 
AND CONTINUE WITH NEXT WORD 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

FLT.MIC[ 10, 1141] 01:46 20-MAR-1981 



D 0140, 0701 , 1577, 1 100 

D 0142, 0702,1577,1700 

D 0143, 0703,1577,1700 

D 0144, 071 1 , 1577, 1 100 

D 0145, 0611, 1577,0100 

D 0146, 0712, 1577, 1700 

D 0147, 0713,1577,1700 

D 0150, 0701 , 1576, 1 100 

D 0152, 0702,1576,1700 

D 0153, 0703,1576,1700 

D 0154, 071 1 , 1576, 1 100 

D 0155, 061 1 , 1576,0100 

D 0156, 0712, 1576, 1700 

D 0157, 0713, 1576, 1700 



U 1 576 , 1577, 244 1 , 0303 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 



U 1577, 0674,3771,0005,0276,6006,7701,2000,0020,2000 

U 0674 , 1312,3333, 0005 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 0676, 3075,3441,0304,4174,4007,0700,0000,0000,0000 

U 3075, 3076,3441,0503,4174,4007,0700,2000,0041,2000 

U 3076, 3077,3441,0405,4174,4007,0700,2000,0020,0000 

U 3077, 1310,3333,0003,4174,4007,0520, 1 000 , 004 1 , 2000 

U 1310, 3100,4551,0303,4374,0007,0700,0000,0000,0777 

U 1311, 3100,3551,0303,4374,0007,0700,0000,0077,7000 



U 1312, 3100,4551,0505,4374,0007,0700,0000,0000,0777 

U 1313, 3100,3551,0505,4374,0007,0700,0000,0077,7000 

U 3 100 , 1314,4222, 0000 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 

U 1314, 1314, 3446 , 0505 ,4174, 4047 , 0630 , 2000 , 0060 , 0000 

U 1315, 0420,0111,0503,4174,4003,4701,0000,0000,0000 
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FLOATING POINT -- FAD, FSB 



"FLOATING 


PfiTMT F&n 


r od 


. DCODE 








FL-R, 


FL 




• 1 /F An 


FL-RW, 


FL 


-MFM 


. i /p An 
u/ r au 


FL-RW, 


FL 


-RflTW 

du i n , 


. i /f An 

U/ rAU 


FL-R, 


FL 


- a r* Dm iKin 


Kj/ r AU 


FL-I, 


FL 


_ a r» nni imps 


U/ r AU 


FL-RW, 


FL 


-MfcM, kuUND , 


J/ P AD 


FL-RW, 


FL 


-fc5Uln, KUUIMU , 


J/FAD 


FL-R, 


FL 


-AC, 


J/FSB 


FL-RW, 


FL 


-MEM, 


J/FSB 


FL-RW, 


FL 


-BOTH, 


J/FSB 


FL-R, 


FL 


-AC, ROUND, 


J/FSB 


FL-I , 


FL 


-AC, ROUND, 


J/FSB 


FL-RW, 


FL 


-MEM, ROUND, 


J/FSB 


FL-RW, 


FL 


-BOTH, ROUND, 


J/FSB 


.UCODE 









5256 .TOC 
5257 
5258 

5259 140: 

5260 142: 
5261 
5262 
5263 
5264 
5265 
5266 

5267 150: 

5268 152: 
5269 
5270 
5271 
5272 
5273 
5274 
5275 

5276 ; BOTH FAD & FSB ARE ENTERED WITH THE MEMORY OPERAND IN 

5277 ; SIGN SMEARED. THE EXPONENT IN BOTH SC AND FE. 

5278 1576: 

5279 FSB: [AR]_-[AR] ; MAKE MEMOP NEGATIVE 
5280 

5281 1577: 

5282 FAD: [BR]_AC, SC_SC-EXP-1, 3T , SCADDISP 

5283 =0* 

5284 -FAS1: READ [BR], SKIP DPO, J/FAS2 ; BR . LE . AR 

5285 [ARX]_[AR] ; SWAP AR AND BR 

5286 [ AR ]_[BR] , SCJEXP 

5287 [BR]_[ARX], SC_SC-FE-1 ; NUMBER OF SHIFT STEPS 

5288 READ [AR], FE_EXP, 2T, SKIP DPO 

5289 =0 [AR]_+SIGN, J/FAS3 

5290 [AR]_-SIGN, J/FAS3 
5291 

5292 =0 ;SIGN SMEAR BR AND UNNORMALIZE 

5293 FAS2: [BR]_+SIGN, J/FAS3 

5294 [BR]__-SIGN, J/FAS3 
5295 

5296 FAS3: Q_0, STEP SC 

5297 =0 

5298 FAS4: [BR]_JBR]*.5 LONG, STEP SC, ASHC, J/FAS4 

5299 [AR]_[AR]+[BR] , NORM DISP, J/SNORM 
5300 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

FLT.MIC[ 10, 1 141 ] 01:46 20-MAR-1981 



D 0160, 0701 , 1570, 1 100 

D 0162, 0702,1570,1700 

D 0163, 0703,1570,1700 

D 0164, 071 1 , 1570, 1 100 

D 0165, 061 1 , 1570,0100 

D 0166, 0712, 1570, 1700 

D 0167, 0713,1570,1700 



U 1570, 1316,3771 ,0006,0276,6007,0521 , 1000,0040,2000 

U 1316, 3101 ,4551 ,0606, 4374, 0007, 0700, 000b, 0000, 0777 , 

U 1317, 3101,3551,0606,4374,0007,0700,0000,0077,7000 I 

U 3101, 0163,3442,0300,4174,4007,0700,2000,0071,0033 \ 

U 0163, 2662,3446,0606,4174,4007,0700,0010,0000,0000 

U O 1 67 , 3 1 02 , 4662 , 0000 , 4370 , 4007 , 0700 , 0000 , 0077 , 7000 

U 3102, 3103,3441,0403,4174,4007,0700,1000,0041,0002 



U 3103, 0420,3446,0303,4174,4003,4701,1000,0041,1600 
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FLAOTING POINT FMP 

5301 .TOC "FLAOTING POINT -- FMP" 

5302 

5303 . DCODE 

5304 160: FL-R, FL-AC, J/FMP 

5305 162: FL-RW , FL-MEM, J/FMP 

5306 FL-RW, FL-BOTH, J/FMP 
5307 

5308 FL-R, FL-AC, ROUND, J/FMP 

5309 FL-I, FL-AC, ROUND, J/FMP 

5310 FL-RW, FL-MEM, ROUND, J/FMP 

5311 FL-RW, FL-BOTH, ROUND, J/FMP 

5312 .UCODE 
5313 

5314 1570: 

5315 FMP: [BRX]_AC, ; GET AC 

5316 FE_SC+EXP, 3T , ; EXPONENT OF ANSWER 

5317 SKIP DPO ; GET READY TO SMEAR SIGN 

5318 =0 [BRX]_+SIGN, J/FMP 1 ,-POSITIVE 

5319 [BRX]_-SIGN, J/FMP 1 ; NEGATIVE 

5320 FMP 1 : Q_[AR], SCJ27 . ; GET MEMORY OPERAND 

5321 =01* [BRX]_[BRX]*.5 LONG, ;SHIFT RIGHT 

5322 CALL [MULSUB] ; MULTIPLY 

5323 Q_Q.AND.#, #/777000, ; WE ONLY COMPUTED 

5324 HOLD LEFT ; 27 BITS 

5325 [AR]_[ARX], FE_FE+2 ; SET SHIFT PATHS 

5326 [AR]_[AR]*.5 LONG, ;SHIFT OVER 

5327 FE_FE-200, ; ADJUST EXPONENT 

5328 NORM DISP, J/SNORM ; NORMALI ZE & EXIT 
5329 



T10KI .MCR[ 10, 1141] 11:45 1 1 -AUG- 1984 MICRO 

FLTlWICC 10, 1 141 ] 01:46 20-MAR-1981 



D 0170, 0701 , 1574, 1 100 

D 0172, 0702,1574,1700 

D 0173, 0703,1574,1700 

D 0174, 071 1 , 1574, 1 100 

D 0175, 061 1 , 1574,0100 

D 0176, 0712, 1574, 1700 

D 0177, 0713,1574,1700 



U 1574, 1320,3441 ,0305,0174,4007,0621 ,0000,0000,0000 



U 1320, 1322,3771 ,0003,0276,6007,0520, 1000,0030,2000 

U 1321, 0603,4443,0000,4174,4467,0700,0000,0071,1000 

U 1322, 3104,4551,0303,4374,0007,0700,0000,0000,0777 

U 1323, 3105,3551,0303,4374,0007,0700,0000,0077,7000 

U 3104, 3106,3441,0304,4174,4007,0700,1000,0031,0200 

U 3105, 3106,2441,0304,4174,4007,0700,5000,0031,0200 

U 3 1 06 , 1324, 3445 , 0506 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 1 324 , 1 326 ,2113, 0406 ,4174, 4007 , 03 1 1 , 4000 , 0000 , 0000 

U 1 325 , 1324, 2445 , 0506 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 

U 1326, 1 330 , 3447 , 0606 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1327, 0603,4443,0000,4174,4467,0700,0000,0071,1000 



U 1330, 3567,3445,0303,4174,4007,0700,0010,0000,0000 

U 1331 , 0144,21 13,0604,4174,4007,0421 ,4000,0000,0000 

U 0144, 2725,4222,0000,4174,4007,0700,2010,0071,0033 

U 0145, 0144,3447,0303,4174,4007,0700, 1000,0041 ,0001 

U 0154, 3107,3227,0003,4174,4007,0700,0000,0000,0000 

U 0155, 2036,3333,0003,4174,4007,0621,0010,0000,0000 

U 0156, 2036,3333,0003,4174,4007,0621,0010,0000,0000 

U 0157, 3107,3227,0003,4174,4007,0700,0000,0000,0000 

U Ot77, 3107,2227,0003,4174,4007,0700,4000,0000,0000 



U 3 1 07 , 1341,4222, 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
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5330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5348 
5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
.5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 



.TOC "FLOATING POINT -- FDV" 





. DCODE 








170: 


FL-R, 


FL 


-AC, 


d/FDV 


172: 


FL-RW, 


FL 


-MEM, 


J/FDV 




FL-RW, 


FL 


-BOTH, 


J/FDV 




FL-R, 


FL 


-AC, ROUND, 


J/FDV 




FL-I , 


FL 


-AC, ROUND, 


J/FDV 




FL-RW, 


FL 


-MEM, ROUND, 


J/FDV 




FL-RW, 


FL 


-BOTH, ROUND, 


J/FDV 




.UCODE 









1574: 

FDV: 

=0 



=0 

FDVO: 

FDV1 
FDV2 
FDV3 
=0 

FDV4: 
=0 

FDV5: 
=0 

FDV6 : 



=00100 
FDV7: 
=00 '101 
=01 100 
FDV8: 
=01101 

=01110 

=01 1 1 1 
=11111 



[ BR ]_[ AR ] , SKIP AD.EO.O, AC 

[AR]_AC, FE_SC-EXP, SKIP DPO, 

J/FDVO 
FL NO DIVIDE 

[AR]_+SIGN, J/FDV 1 
[AR]_-SIGN, J/FDV2 
[ARX]_[AR] ,FE_-FE+200, J/FDV3 
[ARX]_-[AR] ,FE_-FE+200, J/FDV3 



;COPY DIVSOR SEE IF 

; GET AC & COMPUTE NEW 
; EXPONENT 
;DIVIDE BY ZERO 



; COMPUTE 2*DVND 
; ABSOLUTE VALUE 



[BRX]_[BR]*2, SKIP DPO ; ABSOLUTE VALUE 



[ARX]-[BRX], SKIP CRYO, 3T, J/FDV5 
[BRX]_-[BR]*2, J/FDV4 

[BRX]_[BRX]*.5, J/FDV6 
FL NO DIVIDE 

[AR]_[AR]*2, 
CALL [SBRL] 

[BRX]-[ARX], SKIP AD.LE.O 

Q_0, SC_27., CALL [DIVSGNj 
[AR]_[AR]*.5, FE_FE+ 1 , J/FDV7 

[AR]_Q*.5, J/FDV9 
READ [ AR ] , SKIP AD.EQ.O, 
CALL [SETSN] 

READ [AR], SKIP AD.EQ.O, 
CALL [SETSN] 
[AR]_Q*.5, J/FDV9 
[AR]_-Q*.5, J/FDV9 



; FLOATING NO DIV? 
; FORCE ABSOLUTE VALUE 

; SHIFT BACK ARX 
; UNNORMALIZED INPUT 

;D0 NOT DROP A BIT 
; AT FDV7+1 
;IS ANSWER . LE . 1? 

;DIVIDE 
; SCALE DV'END 

;PUT ANSWER IN AR 
;-VE ANSWER, LOOK AT RMDR 
; SEE HOW TO NEGATE 
;-VE ANSWER, LOOK AT RMDR 
; SEE HOW TO NEGATE 
;PUT ANSWER IN AR 
;ZERO RMDR 



FDV9: 0, J/SNORMO 



;G0 NORMALIZE 
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D 0127, 
D 0132, 



001 1 , 1616, 1 100 
0001 , 1621 ,2100 



U 1616, 1 332 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0077 , 7000 
U 1332, 1334,2441 , 0305 , 41 74 , 4007 , 052 1 , 4000, 0000 , 0000 
U 1333, 1341 ,4222,0000,4174,4007,0700, 1000 , 007 1 , 0233 



U 1334, 
U 1335, 



1336, 4553 , 0500 , 4374 , 4007 , 032 1 , 0000 , 0077 , 7000 
31 10,4222,0000,4174,4007,0700, 1000 , 007 1 , 0244 



U 1336, 
U 1337, 



31 10,4222,0000,4174,4007,0700, 1000 , 007 1 , 0244 
1341 ,4222,0000,4174,4007,0700, 1000, 007 1 , 0233 



U 31 10, 1340,3446,0303,4174,4047,0700,2000,0071 ,0006 



U 1340, 
U 1341, 



1 340 , 3446 , 0303 ,4174, 4047 , 0630 , 2000 , 0060 , 0000 
0420 , 3333 , 0003 ,4174, 4003 , 470 1 , 0000 , 0000 , 0000 



U 1621, 3111,3333,0003,4174,4007,0700,2000,0041,4000 

U 3111, 3112,4222,0000,0174,4007,0700,0000,0000,0000 

U 3112, 1342,3771 ,0003,0276,6007,0520, 1000,0040,2000 

U 1342, 1341 ,4551 ,0303,4374,0007,0700,0000,0000,0777 

U 1343, 1341 ,3551 ,0303,4374,0007,0700,0000,0077,7000 
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; 5380 .TOC "FLOATING POINT -- FLTR, FSC" 
; 5381 

; 5382 . DCODE 

; 5383 127: R, FL-AC, ROUND, J/FLTR 

;> 5384 132: I, FL-AC, J/FSC 

; 5385 .UCODE 
; 5386 

; 5387 1616: 

; 5388 FLTR: [ AR ] . AND . # , 0/777000, 3T , SKIP ADL.EQ.O ; SMALL POS NUMBER? 

; 5389 =0 [BR]__-[AR], SKIP DPO, 3T, J/FLTR 1 ;NO--SEE IF MINUS 

; 5390 Q_0, FE_S#, S#/233, J/SNORMO ;FITS IN 27 BITS 

; 5391 =0 

; 5392 FLTR 1 : [BR ] . AND . ti , #/777000, 3T , 

; 5393 SKIP ADL.EQ.O, J/FLTR 1 A ; SMALL NEGATIVE NUMBER 

; 5394 Q_0, FE_S#, S#/244, J/FLTR2 ; LARGE POS NUMBER 

; 5395 =0 

; 5396 FLTR 1 A : Q_0, FE_S#, S0/244, J/FLTR2 ;BIG NUMBER 

5397 Q_0, FE_S#, S#/233, J/SNORMO ;FITS IN 27 BITS 

5398 ; AT THIS POINT WE KNOW THE NUMBER TAKES MORE THAN 27 BITS. WE JUST 

5399 ; SHIFT 8 PLACES RIGHT AND NORMALIZE. WE COULD BE MORE CLEVER BUT 

5400 ; THIS IS THE RARE CASE ANYWAY. 

5401 FLTR2 : [AR]_[AR]*.5 LONG, ASHC, SC_6 ; SHOVE OVER TO THE RIGHT 

5402 =0 

5403 FLTR3: [AR]_[AR]*.5 LONG, ASHC, ;SHIFT RIGHT 9 PLACES 

5404 STEP SC, J/FLTR3 ; SO IT WILL FIT 

5405 SNORMO: READ [AR], NORM DISP, J/SNORM -.NORMALIZE ANSWER 
5406 

5407 

5408 1621: 

5409 FSC: READ [AR], SC_SHIFT 

5410 0_0, AC ; DON'T SHIFT IN JUNK 

5411 [AR]_AC, FE_SC+EXP, SKIP DPO ;SIGN SMEAR 

5412 =0 [AR]_+SIGN, J/SNORMO 

5413 [AR]_-SIGN, J/SNORMO 
5414 
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D 0122, 
D 0126, 



0701 , 1626, 1 100 
0711, 1626, 1100 



l> 1626, 0720,4222,0000,4174,4006,7701,0000,0041,1534 

U 0720, 0603,4443,0000,4174,4467,0700,0000,0041,1000 

U 0722, 0724,4443,0000,4174,4006,7701,2000,0041,1544 

U 0724 , 1 346 , 4443 , 0000 , 4 1 74 , 4007 , 0630 , 2000 , 0060 , 0000 

U 0726, 3113,4443,0000,4174,4007,0700,2000,0031,0232 



U 3 1 1 3 , 1 344 , 4443 , 0000 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 



U 1 344 , 1 344 , 3446 , 0303 , 4 1 74 , 4047 , 0630 , 2000 , 0060 , 0000 
U 1345, 0063,3447,0705,4174,4003,7700,0000,0000,0000 



U 1 346 , 1346, 3445 , 0303 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
U 1347, 0100,3440,0303,0174,4156,4700,0400,0000,0000 



U 0063 , 1 350 , 3333 , 0003 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 0073, 1514,01 1 1 ,0503,4174,4003,7700,0200,0003,0001 

U 1350, 0100,3440,0303,0174,4156,4700,0400,0000,0000 

U 1351 , 1352,3223,0000,4174,4007,0621 ,0000,0000,0000 

U 1352, 1514,01 1 1 ,0703,4174,4003,7700,0200,0003,0001 

U 1353, 0073,7441,1205,4174,4007,0700,0000,0000,0000 



54 1 5 


. TOC 


II r- 1 n A T T MP DD T HT CTV A KID CTVDH 

FLOATING POINT — FIX AND FIXR 




54 16 








54 1 7 




. DCODE 




54 18 


122 : 


fin r- i a i/r*Tv 

FL-R, FL-AC, u/FIX 




54 19 


126 : 


FL-R, FL-AC, ROUND, U/FIX 




5420 




. UCODE 




542 1 








5422 


1626 : 






5423 


FIX : 


Q__0, SCAD/ A+B , SCADA/S#, 


;CLEAR Q, SEE IF 


5424 




S#/1534, 5CADB/FE, 3T , 


; ANSWER FITS IN 


5425 




SCAD DISP 


; 35 BITS. 


5426 


~o* 


SET AR0V, U/NIDI5P 


; TOO BIG 


5427 




SC_FE+S#, S#/1544, 3T , SCAD DISP 


;NEED TO MOVE LEFT? 


5428 


=0* 


5TEP SC , u/FIXL 




5429 




5C_S#~FE, 5#/232 


. in urn r n r^t* n i a v c* ~m cutct 

; NUMBER OF PLACES TO SHIFT 


5430 






; RIGHT 


543 1 




e+ *T" f r\ o /■* 

STEP SC 


. ai nr a r>\/ ti imp 

; ALREADY THERE 


5432 


=0 






5433 


FIXR : 


[AR]_[AR]*.5 LONG, ASHC, 


; SHIFT BINARY POINT 


5434 




STEP SC , U/FIXR 


; TO BIT 35.5 


5435 




L BR J_l ONE J * . 5 , B DISP, u/FIXX 


;WHICH KIND OF FIX? 


5436 








5437 


=0 






5438 


F IXL : 


L AR J_L AR J *2 , STEP SC , u/rlXL 


; bnl r 1 Lbr 1 


C A OQ 




a /-> fad! mcvt tmct 
AL_L AK j , Nt A 1 lNbf 


. hie adc Mniii nnMC 
; Wt AKt NUW UUNb 


5440 








K/l A 4 


— r\-ir 4 4 






K A A O 


r 1 A A . 


nr An Tad! ci/td nDA .i/ctyt 
KtAU LAKJ, oKlr UrU, U/rJLAI 


.CTV CCC TC MTMIIC 


K A A O 


C T Y Y 4 • 

r I AA i . 


Fad! F ad 1 j. Tdd 1 c s _cv tt 
I AK J_L AK J + L OK J , rL tAJLI 


■ CT YD--DnilMn 1 ID 

, rlAK — KUUiNIU UK 


5444 


=0 






5445 


FIXT: 


AC CAR], NEXT INST 


;FIX & +, TRUNCATE 


5446 




READ Q, SKIP AD.EQ.O 


; NEGATIVE- -ANY FRACTION? , 


5447 


=0 


[AR] [AR]+1, FL-EXIT 


; YES- -ROUND UP 


5448 




[BR] .NOT. [MASK] , 


; MAYBE- -GENERATE .75 


5449 




U/FIXX1 


; ROUND UP IF BIT 36 OR 


5450 






; 37 SET 


5451 









I 
\ 
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5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 



U 0420, 0420,3444,0303,4174,4063,4701,1000,0041,1777 ; 5480 

U 0421, 1356,2222,0000,4174,4007,0311,4000,0000,0000 ; 5481 

U 0422, 0262,3333,0003,4174,4003,4701,0010,0000,0000 ; 5482 

U 0423, 1356,2222,0000,4174,4007,0311,4000,0000,0000 ; 5483 

U 0424, 0262,3447,0303,4174,4007,0700,1010,0041,0001 ; 5484 

U 0425, 1356,2222,0000,4174,4007,0311,4000,0000,0000 ; 5485 

U 0426, 0262,3447,0303,4174,4007,0700,1010,0041,0001 ; 5486 

U 0427, 1356,2222,0000,4174,4007,0311,4000,0000,0000 ; 5487 

U 0430, 1354,3223,0000,4174,4007,0621,0000,0000,0000 ; .5488 

U 0436, 1355,3770,0303,4324,0457,0700,0000,0041,0000 ; 5489 

; 5490 

; 5491 

U 1354, 0420,3444,0303,4174,4063,4701,1000,0041,1777 ; 5492 

U 1355, 1514,4443,0000,4174,4003,7700,0200,0003,0001 ; 5493 

; 5494 



.TOC "FLOATING POINT -- SINGLE PRECISION NORMALIZE" 

; NORMALIZE DISPATCH IS A 9-WAY DISPATCH. THE HARDWARE LOOKS AT 
; 4 SIGNALS: DP=0, DP BIT 8, DP BIT 9, DP BIT -2. THE 9 CASES 
; ARE: 



nn-A 
Ur-U 




UrUo 




P1DAQ 




Ur W 




APTTOM Tn TAUT 

SHIFT LEFT 











1 


NEGATE AND RETRY 








1 





ALL DONE 








1 


1 


NEGATE AND RETRY 





1 








SHIFT RIGHT 





1 





1 


NEGATE AND RETRY 





1 


1 





SHIFT RIGHT 





1 


1 


1 


NEGATE AND RETRY 


1 








LOOK AT Q BITS 



; ENTER HERE WITH UNNORMALIZED NUMBER IN AR!Q. FE HOLDS THE NEW 
; EXPONENT. CALL WITH NORM DISP 
=0000 ; 9-WAY DISPATCH 

SNORM: [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNORM 

Q_-Q, SKIP CRYO, 3T, J/SNNEG 

READ [AR], NORM DISP, CALL [SROUND] 

Q_-Q, SKIP CRYO, 3T, J/SNNEG 

[AR]_[AR]*.5, FE_FE+1 , CALL [SROUND] 

Q_-Q, SKIP CRYO, 3T, J/SNNEG 

[AR]_[AR]*.5, FE_FE+1, CALL [SROUND] 

0_-Q, SKIP CRYO, 3T, J/SNNEG 

READ 0, SKIP AD.EQ.O, J/SNORM 1 
=1110 [AR]_EXP, J/FLEX 

=0 

SNORM 1 : [AR]_[AR]*2 LONG, DIV, FE__FE- 1 , NORM DISP, J/SNORM 
FLEX: FL-EXIT 
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U 1356, 0440,7441,0303,4174,4003,4701,0000,0000,0000 

U 1357, 0440,2441,0303,4174,4003,4701,4000,0000,0000 

U 0440, 0440,3444,0303,4174,4063,4701,1000,0041,1777 
U 0442, 0262,3333,0003,4174,4003,4701,0010,0000,0000 
U 0444, 0262,3447,0303,4174,4007,0700,1010,0041,0001 
U 0446, 0262,3447,0303,4174,4007,0700,1010,0041,0001 
U 0450, 0440,3444,0303,4174,4063,4701,1000,0041,1777 
U 0456, 0327,3770,0303,4324,0453,7700,0000,0041,0000 

U 0327, 1360,4553, 1 300, 4374 , 4007 , 032 1 , 0000 , 0000 , 2000 

U 0337, 1363,41 1 1 , 1203,4174,4007,0700,0000,0000,0000 

U 1360, 3114,7441,0303,4174,4007,0700,0000,0000,0000 

U 1 36 1 , 1 362 , 3223 , 0000, 4 1 74 , 4007 , 062 1 , 0000 , 0000 , 0000 

U 1362, 3114,7441,0303,4174,4007,0700,0000,0000,0000 

U 1363, 3114,2441,0303,4174,4007,0700,4000,0000,0000 

U 31 14, 1514,4221 ,0013,4174,4003,7700,0200,0003,0001 



U 0262, 0407,3447,0705,4174,4003,7700,0000,0000,0000 

U 0266, 0262,3447,0303,4174,4007,0700,1000,0041,0001 

U 0407, 0016,4443,0000,4174,4004,1700,0000,0000,0000 

U 0417, 0302,0111,0503,4174,4003,4701,0000,0000,0000 

U 0302, 0016,4443,0000,4174,4004,1700,0000,0000,0000 

U 0306, 0016,3447,0303,4174,4004,1700,1000,0041,0001 
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; 5495 =0 

; 5496 SNNEG: [ AR ]_. NOT . [ AR ] , NORM DISP, J/SNNORM ; NEGATE HIGH WORD 

; 5497 ; (NO CARRY) 

; 5498 [AR]_-[AR], NORM DISP, J/SNNORM ; NEGATE HIGH WORD (W/CARRY) 

; 5499 =0000 

; 5500 SNNORM: [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNNORM 

; 5501 =0010 READ [AR], NORM DISP, CALL [SROUND] 

; 5502 =0100 [ AR]_[ AR] * . 5 , FE_FE+1, CALL [SROUND] 

; 5503 =0110 [ AR ]_[ AR ] * . 5 , FE_FE+1, CALL [SROUND] 

; 5504 =1000 [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNNORM 

; 5505 =1110 [AR]_EXP, B DISP 

; 5506 = 

; 5507 =0111 TL [ FLG] , FLG.SN/1, J/SNNOT 

; 5508 [AR]_JAR] .AND. [MASK] , ; CLEAR ANY LEFT OVER BITS 

; 5509 'J/SNNOT 1 ' ' 

; 5510 =0 

; 5511 SNNOT: [ AR ]_. NOT . [ AR ] , J/SNN0T2 

; 5512 READ Q, SKIP AD.EQ.O 

; 5513 =0 [AR]_.NOT. [AR] , J/SNN0T2 

; 5514 SNNOT 1 : [ARJ_-[AR], J/SNN0T2 ; NORMAL NEGATE AND EXIT 

; 5515 SNN0T2: [FLG]_0, FL-EXIT 

; 5516 

; 5517 

; 5518 

; 5519 .TOC "FLOATING POINT ROUND ANSWER" 

; 5520 

; 5521 = *01* 

; 5522 SROUND: [BR ]_[ONE ] * . 5 , B DISP, J/SRND1 

; 5523 [AR]_[AR]*.5, FEjFE+1, J/SROUND ; WE WENT TOO FAR 

; 5524 =01 1 1 

; 5525 SRND1: RETURN [16] / ; NOT ROUNDING INSTRUCTION 

; 5526 [ARJ_[AR]+[BR] , NORM DISP 

; 5527 =*01* RETURN [16] 

; 5528 [AR]_[AR]*.5, FE_FE+ 1 , RETURN [16] 

; 5529 
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D 01 t0 5 1 100, 1637, 1 100 
D 01 1 1 , 1 100, 1635, 1 100 



U 1635, 31 15,2441 ,0404,4174,4007,0700,4000,0000,0000 
U 3115, 1637,2441 ,0303,4174,4007,0700,0040,0000,0000 

U 1637, 31 16,4557,0006, 1274,4007,0701 ,0000,0000, 1441 



U 31 16, 1364,3777,0005,0274,4007,0521 ,2000,0020,2000 
U 1 364 , 1 366 , 5547 , 0505 , 0374 , 4007 , 063 1 , 0000 , 0077 , 7400 
U 1 365 , 1 366 , 3547 , 0505 , 0374 , 4007 , 063 1 , 0000 , 0077 , 7400 



U 1 366 , 1 370 , 3442 , 0600 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 1367, 3120,3771,0016,0276,6007,0700,2000,0041,2000 
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5530 


.TOC 


"FLOATING POINT DFAD, DFSB" 


5531 








5532 




. DCODE 




5533 


110: 


DBL FL-R, 


J/DFAD 


5534 


111 : 


DBL FL-R, 


J/DFSB 


5535 




.UCODE 




5536 








5537 


; ENTER 


FROM A-READ CODE WITH: 




5538 


;FE/ 


EXP 




5539 


;SC/ 


EXP 




5540 


;AR/ 


C(E) SHIFT RIGHT 2 PLACES 


5541 


; ARX/ 


C(E+1) SHIFTED RIGHT 


1 PLACE 


5542 


1635: 






5543 


DFSB: 


[ ARX 3 -[ARX] 


; NEGATE LOW WORD 


5544 




[AR]_-[AR]-.25, MULTI 


PREC/1 


5545 


1637: 






5546 


DFAD: 


[ BRX 3 (AC[ 1 3 . AND. [MAG] )*.5, 3T ; GET LOW WORD 


5547 




[BR] AC*. 5, 3T, 


; GET AC AND START TO SHIFT 


5548 




SC SC-EXP-1 , 


; NUMBER OF PLACES TO SHIFT 


5549 




SKIP DPO 


;SEE WHAT SIGN 


5550 


=0 


[BR] +SIGN*.5, 3T, 


;SIGN SMEAR 


5551 




AC, SKIP/SC, J/DFAS1 


;SEE WHICH IS BIGGER 


5552 




[BR] -SIGN*. 5, 3T, 


;SIGN SMEAR 


5553 




AC, SKIP/SC, J/DFAS1 


;SEE WHICH IS BIGGER 


5554 


=0 






5555 


DFAS1 : 


[BRX], 


;AR IS BIGGER 


5556 




J/DFAS2 


; ADJUST BR ! Q 


5557 




[TO] AC, 


; BR IS BIGGER OR EQUAL 


5558 




SC EXP, 2T, J/DFAS3 


;SET SC TO THAT EXPONENT 


5559 









T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
FLT . MIC [ 10 , 1141] 01:46 20-MAR-1981 



U 1370, 0153,3441,0516,4174,4007,0700,0010,0000,0000 
U 1371, 3117,3441,1605,4174,4007,0700,0000,0000,0000 
U 3117, 3123,0002,0400,4174,4007,0700,0000,0000,0000 



U 3120, 
U 3121, 
U 1372, 
U 1373, 
U 3122, 



3121,3442, 0400 ,4174, 4007 , 0700 , 2000 , 0020 , 0000 
1372 , 3333 , 0016 , 4 1 74 , 4007 , 0700, 1000, 004 1 , 2000 
0153, 344 1 , 03 1 6 , 4 1 74 , 4007 , 0700 , 00 1 , 0000 , 0000 
3122, 344 1 , 1 603 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3123, 0002 , 0600 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3123, 3124,0116,0503,4174,4047,0700,0040,0000,0000 

U 3124, 0433,3444,0303,4174,4046,2700,0000,0000,0000 

U 0433, 3125,5111,1217,4174,4007,0700,0000,0000,0000 

U 0437, 0433,0222,0000,4174,4007,0700,4000,0000,0000 

U 3125, 3126,3444,0303,4174,4047,0700,1000,0041,1777 

U 3126, 3127,3444,0303,4174,4047,0700,1000,0041,1777 

U 3127, 2005,3002,1700,4170,4007,0700,0000,0000,0000 
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5560 ;HERE IF ARIARX IS GREATER THAN BR ! BRX 

5561 =0 

5562 DFAS2 : [TO]_[BR], CALL [DFADJ] ;ADJUST BR ! Q 

5563 [BR]_[TO] ; PUT ANSWER BACK 

5564 Q_0+[ARX], J/DFAS5 ; ADD LOW WORDS 
5565 

5566 ; HERE IS BR ! BRX IF GREATER THAN OR EQUAL TO ARIARX 

5567 DFAS3: Q_J ARX], ; SETUP TO SHIFT ARIARX 

5568 SC_SC-FE- 1 ;COMPUTE # OF PLACES 

5569 READ [TO], FE_EXP ; EXPONENT OF ANSWER 

5570 =0 [TO]_[AR], CALL [DFADJ] ; ADJUST AR!Q 

5571 [AR]_[TO] ;PUT ANSWER BACK 

5572 0__0+[BRX], J/DFAS5 ; ADD LOW WORDS 
5573 

5574 ;BIT DIDDLE TO GET THE ANSWER (INCLUDING 2 GUARD BITS) INTO 

5575 ; AR ! Q 

5576 DFAS5: [ AR ]_( [ AR ] + [ BR ] ) * . 5 LONG, "; ADD HIGH WORDS 

5577 MULTI PREC/1, ASHC ; INJECT SAVED CRY2 

5578 [AR]_[AR]*2 LONG, ;SHIFT BACK LEFT 

5579 ASHC, MUL DISP ;SEE IF WE LOST A 1 

5580 =1011 

5581 DFAS6 : [ T 1 ]_[ T 1 ]. AND . NOT . [MASK ] , J/DFAS7 

5582 Q_Q+.25, J/DFAS6 

5583 DFAS7: [AR]_[AR]*2 LONG, ASHC, ; PUT IN GUARD BITS 

5584 FE_FE - 1 

5585 [AR]_[AR]*2 LONG, ASHC, 

5586 FE_FE-1 

5587 Q_JT1].0R.Q, HOLD LEFT, J/DNORMO 
5588 



/ 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; FLT . MIC[ 10, 1141] 01 : 46 20-MAR- 198 1 



U 0153, 2037,3444,1616,4174,4067,0700,0010,0000,0000 

U 0173, 3130,3444,1616,4174,4067,0700,0000,0000,0000 

U 3130, 3131,3444,1616,4174,4067,0700,0000,0000,0000 

U 3131, 0472,3446,1616,4174,4047,0630,2000,0060,0000 



U 0472, 0472,3446,1616,4174,4046,2630,2000,0060,0000 

U 0473, 0453,3221,0017,4174,4006,2700,0000,0000,0000 

U 0476, 1374,3551 , 1313,4374,0007,0700,0000,0000,2000 

U 0477, 1375,3551 , 1313,4374,0007,0700,0000,0000,2000 



U 1 374 , 1 374 , 3446 ,1616,4174, 4047 , 0630 , 2000 , 0060 , 0000 

U 1375, 0453,3221,0017,4174,4007,0700,0000,0000,0000 

U 0453 , 3132,3446,1616,4174, 4047 , 0700 , 0000 , 0000 , 0000 

U 0457, 0453,3551,1313,4374,0007,0700,0000,0000,2000 

U 3132, 0001,3446,1616,4174,4044,1700,0000,0000,0000 
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; 5589 ; SUBROUTINE TO ADJUST NUMBER IN TO!Q 

; 5590 ; RETURNS 1 WITH 

; 5591 ; TO!Q ADJUSTED 

; 5592 ; FLG.SN=1 IF WE SHIFTED OUT ANY 1 BITS (STICKY BIT) 

; 5593 ; T1 HAS TWO STEPS PRIOR TO BEING DONE 

; 5594 DFAD J "STEP SC , ASHC, MUL DISP" 

; 5595 

; 5596 =0**11 

; 5597 DFAD J : [T0]_[T0]*2 LONG, DIV, ;MOVE EVERYTHING 2 PLACES 

; 5598 CALL [CLRSN] 

; 5599 [T0]_[T0]*2 LONG, DIV 

; 5600 [T0]_[T0]*2 LONG, DIV 

; 5601 [T0]_[T0]*.5 LONG, ASHC, ;SHIFT AT LEAST 1 PLACE 

; 5602 STEP SC 

; 5603 =1010 

; 5604 DFAD J 1 : [T0]_[T0]*.5 LONG, ; UNNORMALI ZE TO!Q 

; 5605 DFAD J , J/DFAD J 1 ; LOOP TILL DONE 

; 5606 DFADJ2: [T1]_0, ; SAVE GUARD BITS 

; 5607 MUL DISP, J/DFADJ5 ; LOOK AT LAST BIT 

; 5608 [FLG]_[FLG] . OR . # , FLG.SN/1, HOLD RIGHT, J/DFAD J3 

; 5609 [ FLG]_[ FLG j . OR . # , FLG.SN/1, HOLD RIGHT, J/DFADJ4 

; 5610 

; 5611 =0 

; 5612 DFADJ3: [TO]_[TO] * . 5 LONG, ASHC, STEP SC , J/DFADJ3 

; 5613 DFADJ4: [T1]_Q ; SAVE 2 GUARD BITS 

; 5614 =1011 

; 5615 DFADJ5: [T0]_[T0]*.5 LONG, ASHC, J/DFADJ6 

; 5616 [ FLG]__[ FLG] . OR . # , FLG.SN/1, HOLD RIGHT, J/DFAD J5 

; 5617 DFADJ6 : [T0]_[T0]*.5 LONG, ASHC, RETURN [1] 

; 5618 



T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 
FLT.MIC[ 10, 1141] 01:46 20-MAR- 1981 



D 01 12, 1 105, 1631 , 1 100 



U 1631 , 1376,3442,0400,4174,4007,0700,2000,0071 ,0006 



U 1376, 1 376 , 3444 , 0303 ,4174, 4047 , 0630 , 2000 , 0060 , OOOO 

U 1377, 3133,3446,1 200 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3133, 3134,4662,0000,4374,0007,0700,0000,0007,7777 

U 3134, 3135,3221, 0005 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3135, 0730,4557,0006, 1274,4007,0700,0000,0000, 1441 
U 0730 , 2663 , 3447 , 0606 ,4174, 4007 , 0700 , 20 10 , 007 1 , 0043 



U 0734, 0732,3442,0300,4174,4007,0700,2000,0071,0043 

U 0732, 2664,4443,0000,4174,4007,0700,0010,0000,0000 

U 0736 , 3136, 344 1 , 04 1 6 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3136, 3137,3227,0004,4174,4007,0700,2000,0011,0000 



U 3137, 2000,3777,0006,0274,4007,0521,1000,0040,2000 

U 2000 , 1012, 5547 , 0606 , 4374 , 4007 , 0701 , 0000 , 0077 , 7400 

U 2001 , 1012,3547,0606,4374,4007,0701 ,0000,0077,7400 

U 1012, 2664,3442,0500,4174,4007,0700,2010,0071,0043 

U 1016 , 3 140, 322 1 , 001 7 , 4 174 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3140, 1062,01 1 1 , 1604,4174,4007,0700,0000,0000,0000 



U -1062, 



2664 , 3442 , 0300 ,4174, 4007 , 0700 , 20 1 O , 007 1 , 0043 
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56 19 


. T0C 


5620 




562 1 




5622 


112: 


5623 




5624 




ccnc 

v3 \j <L sj 


* SAME 


CCOfi 
ODZO 


IOO 1 . 


CC07 
OD<i / 


DFMP : 






CCOQ 


DFMP 1 


ooou 




ODO 1 








5633 




5634 




5635 


* BRX 


5636 




5637 




5638 


=0* * 


5639 




5640 


; BRX 


564 1 




5642 




5643 


=0* * 


Out't 




5645 








3D4 / 


• BRX 


OOho 








UU3V 




565 1 




5652 


=0 


5653 




5654 


=0* * 


5655 


DFMP2 


5656 




5657 




5658 




5659 


\ BRX 


5660 




5661 


=0** 


5662 




5663 





"FLOATING POINT DFMP" 
. DCODE 

DBL FL-R, DAC, J/DFMP 

.UCODE 

ENTRY CONDITIONS AS DFAD/DFSB 

Q_[ARX], SC_6 ; SHIFT MEM OP 8 PLACES 

[AR]_[AR]*2 LONG, ASHC, ;SHIFT 

STEP SC, J/DFMP 1 

Q_Q*.5 

Q.AND.#, #/077777, HOLD RIGHT 
[BR]_0 ;COPY LOW WORD 

* BR ==> C(E+1) * C(AC+1) 

[BRX]_(AC[1].AND.[MAG])*.5 ; GET LOW AC 
[BRX]_[BRX]*.5, SC_35., CALL [MULSB 1 ] 



* Q ==> C(E) * C(AC+1) 

Q_E AR ] , SC_35. 
CALL [MULTIPLY] 
[TO]_[ARX] 
[ARX]_0*.5, SC_FE 

* BR = = > C(AC) * C(E+1) 



;G0 MULT NEXT HUNK 

;SAVE PRODUCT 
;PUT IN NEXT STEP 



[BRX]_AC*.5, 
FE_SC+EXP, 
SKIP DPO, 3T 

[BRX]_+SIGN*.5, 3T, J/DFMP2 
[BRX] -SIGN*. 5, 3T 



; PREPARE TO DO HIGH HALF 
.•EXPONENT ON ANSWER 



[BR], SC_35., CALL [MULTIPLY] ;G0 MULTIPLY 
[T1]_0 ; SAVE FOR ROUNDING 

[ARX]_[ARX]+[TO] ; PREPARE FOR LAST MUL 



* Q ==> C(AC) * C(E) 

Q__[AR] , SC_35. , 
CALL [MULTIPLY] 



;D0 THE LAST MULTIPLY 



; T10KI .MCR[ 10, 1 141 ] 1 1 : 45. 11 -AUG- 1984 MICRO 

; FLT. MIC[ 10, 1141 ] 01:46 20-MAR-1981 



U 1066, 0243,3446,0403,4174,4007,0700,1000,0041,1576 

U 0243, 2036,3333,0017,4174,4007,0621,0010,0000,0000 

U 0263, 3141,3444,0303,4174,4047,0700,0000,0000,0000 

U 3141, 3142,3447,0705,4174,4007,0700,0000,0000,0000 

U 3142, 2002,4553,1700,4374,4007,0321,0000,0020,0000 

U 2002, 2003,0002,0500,4174,4007,0700,0000,0000,0000 

U 2003 , 3143, 3444 , 0303 ,4174, 4047 , 0700 , 0000 , 0000 , 0000 

U 3143, 2004,4553,1700,4374,4007,0321,0000,0010,0000 

U 2004, 2005,0002,0500,4174,4007,0700,0000,0000,0000 



U 2005, 0520,3333,0003,4174,4003,4701,1000,0041,0002 
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5664 ;0K, WE NOW HAVE THE PRODUCT IN ARX!Q!T1. ALL WE NEED TO DO 

5665 ; IS SOME BIT DIDDLES TO GET EVERYTHING IN THE RIGHT PLACE 

5666 [AR]_[ARX]*.5 LONG, ;SHIFT THE ANSWER 

5667 FE_FE+S#, S0/1576 ;CORRECT EXPONENT 

5668 =0**11 READ [T1], SKIP AD.EQ.O, ;SEE IF LOW ORDER 1 

5669 CALL [SETSN] ; BITS AROUND SOMEPLACE 

5670 [AR]_[AR]*2 LONG, ASHC ;SHIFT LEFT 

5671 [BR]_[0NE]*.5 ;PLACE TO INSTERT BITS 

5672 TL [T1], #/200000 ; ANYTHING TO INJECT? 

5673 =0 Q_Q+[BR] ;YES--PUT IT IN 

5674 [AR]_JAR]*2 LONG, ASHC ; MAKE ROOM FOR MORE 

5675 TL [T1], #/100000 ; ANOTHER BIT NEEDED 

5676 =0 Q_Q+[BR] ;YES--PUT IN LAST BIT 

5677 DNORMO: READ [AR], NORM DISP, ;SEE WHAT WE NEED TO DO 

5678 FE_FE+S#, S#/2, J/DNORM ; ADJUST FOR INITIAL SHIFTS 
5679 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
FLT . MIC [ 10, 1141] 01:46 20-MAR-1981 



D 01 13, 1 105, 1636, 1 100 

U 1636, 0132,3441,0406,4174,4007,0700,0000,0000,0000 

U 0132, 2037,4221,0017,4174,4007,0700,0010,0000,0000 

U 0133, 2006,3441,0305,1174,4007,0421,0000,0000,1441 



U 2006, 3146,4557,0004,1274,4007,0700,0000,0000,1441 
U 2007, 3144,7441 , 1717,4174,4007,0700,0000,0000,0000 
U 3144, 3145,2441,0606,4174,4007,0700,4000,0000,0000 



U 3145, 2006,2331,0005,1174,4007,0521,0040,0000,1441 



U 3146, 2010,3777,0003,0274,4007,0521 , 1000,0030,2000 

U 2010, 2012,5547,0303,4374,4007,0701,0000,0077,7400 

U 2011, 3147,7441,1717,4174,4007,0700,0000,0000,0000 

U 3147, 3150,3547,0303,4374,4007,0701,0000,0077,7400 

U 3150, 3151,2442,0400,4174,4007,0700,4000,0000,0000 



U 3151, 2013,2446,0303,4174,4047,0700,0040,0000,0000 



U 2012, 2724,3442,0400,4174,4007,0700,0010,0000,0000 

U 2013, 2014,2113,0305,4174,4007,0521,4000,0000,0000 

U 2014, 0603,4443,0000,4174,4467,0700,0000,0071,1000 

U 20 1 5 , 1 054 ,3221, 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1 054 , 1 240 , 4222 , 0000 ,4174, 4007 , 0700 , 20 1 O , 007 1 , 0032 

U 1056, 2020,3221,0016,4174,4007,0700,2000,0071,0043 



U 2020 , 1 240 , 5002 , 0000 ,4174, 4007 , 062 1 , 00 1 , 0000 , 0000 
U 2022 , 3152, 3446 , 1 200 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3152, 0513,3444,1616,4174,4046,2700,0000,0000,0000 



U 0513, 2016,3333,0017,4174,4007,0520,1000,0031,0202 

U 0517, 0513,0222,0000,4174,4007,0700,4000,0000,0000 

U 2016, 0520,3441,1603,4174,4003,4701,0000,0000,0000 

U 2017, 0200,3441,1603,4174,4003,4701,0000,0000,0000 
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5680 -TOC "FLOATING POINT -- DFDV" 
5681 

5682 . DCODE 

5683 113: DBL FL-R, DAC , J/DFDV 

5684 .UCODE 

5685 1636: 

5686 DFDV: [BRX]_[ARX] ;COPY OPERAND (COULD SAVE TIME 

5687 ; WITH SEPERATE A-READ FOR DFDV) 

5688 =1**10 [T1]_0, CALL [CLRSN] ; CLEAR FLAG 

5689 [BR]_[AR] , SKIP AD.LE.O, ;SEE IF POSITIVE 

5690 AC[1] ; WARM UP RAM 

5691 =0 

5692 DFDV1: [ ARX ]_( AC [ 1 ] . AND . [MAG] ) * . 5 , ; POSITIVE - -GET AC 

5693 J/DFDV2 ; AND CONTINUE BELOW 

5694 [T1 ]_.NOT. [T1 ] ;DV'SOR NEGATIVE (OR ZERO) 

5695 [BRX]_-[BRX] ; NEGATE LOW WORD 

5696 AD/-B-.25, B/BR, DEST/AD, ; NEGATE HIGH WORD 

5697 MULTI PREC/1, 3T , ; ADDING IN CRY02 

5698 SKIP DPO, AC[1], ;SEE IF STILL NEGATIVE 

5699 J/DFDV 1 ; .. 

5700 DFDV2: [AR]_AC*.5, ; GET AC AND SHIFT 

5701 FE_SC-EXP, 3T , ;COMPUTE NEW EXPONENT 

5702 SKIP DPO ;SEE IF NEGATIVE 

5703 =0 [AR]__+SIGN*.5, 3T , J/DFDV3 ;POSITIVE 

5704 [T1]_.N0T. [T1] ; NEGATIVE OR ZERO 

5705 [AR]_-SIGN*.5, 3T ;SIGN SMEAR 

5706 Q_-[ARX] ; NEGATE OPERAND 

5707 [AR]_(-[AR]-.25)*.5 LONG, ; NEGATE HIGH WORD 

5708 MULTI PREC/1, ;USE SAVED CARRY 

5709 ASHC, J/DFDV4 ; CONTINUE BELOW 

5710 =0 

5711 DFDV3: Q_[ARX], ;COPY OPERAND 

5712 CALL [DDIVS] ;SHIFT OVER 

5713 DFDV4: [ AR] - [BR] , 3T, SKIP DPO ;SEE IF OVERFLOW 

5714 =0 FL NO DIVIDE 

5715 [ARX]_Q ; START DIVISION 

5716 =0* Q_0, SC_26., CALL [DBLDIV] 

5717 [T0]_0, SC_35. 

5718 =0* Q_0. AND. NOT. [MAG] , ;SEE IF ODD 

5719 SKIP AD.EQ.O, ;SKIP IF EVEN 

5720 CALL [DBLDIV] ;G0 DIVIDE 

5721 Q_Q*.5 ;MOVE ANSWER OVER 

5722 = 

5723 [T0]_[T0]*2 LONG, ASHC, ;D0 FIRST NORM STEP 

5724 MUL DISP ; SEE IF A 1 FELL OUT 

5725 =1011 

5726 DFDV4A: READ [T1], SKIP DPO, ; SHOULD RESULT BE NEGATIVE 

5727 FE_S#-FE, S#/202, ; CORRECT EXPONENT 

5728 J/DFDV4B ; LOOK BELOW 

5729 Q_Q+.25, J/DFDV4A ; PUT BACK THE BIT 

5730 =0 

5731 DFDV4B: [AR]_[TO], NORM DISP, J/DNORM ;PLUS 

5732 [AR]_[T0J, NORM DISP, J/DNNORM ;MINUS 
5733 



T10KI „MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

FLT . MIC [ 10 , 1141] 01:46 20-MAR-1981 





u 
u 


0520, 
0521 , 


0520,3444,0303,4174,4043,4701 , 1000,0041 , 1777 
2026 ,4553,1 300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 2000 




u 
u 


0522, 
0523, 


0322 , 3333 , 0003 , 4 1 74 , 4003 , 4701 , 00 1 , 0000 , 0000 
2026 ,4553,1 300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 2000 


223-7881 


u 
u 


0524, 
0525, 


0322 , 3446 , 0303 ,4174, 4047 , 0700 ,1010, 004 1 , 000 1 
2026 ,4553,1 300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 2000 


$ 
o 

«o. 


u 
u 


0526, 
0527, 


032 2 , 3446 , 0303 ,4174, 4047 , 0700 ,1010, 004 1 , 000 1 
2026 ,4553,1 300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 2000 


Printer, PKOl, 


u 
u 


0530, 
0536, 


3154, 4002 , 0000 ,4174, 0007 , 0700 , 0000 , 0000 , 0000 
3153, 4221, 00 13, 41 74, 4007 , 0700 , OOOO , 0000 , 0000 


& 
8 

© 


u 


3153, 


1515,41 13,0400, 1 174,4007,0700,0400,0000/1441 


irvicet Elect 


u 


3154, 


2024 , 3223 , 0000 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 


Information S< 


u 

u 


2024, 
2025, 


0520,3444,0303,4174,4043,4701 , 1000,0041 , 1777 
1515,3440,0303, 1 1 74 , 4007 , 0700 , 0400 , 0000 , 1441 
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FLOATING POINT DOUBLE PRECISION NORMALIZE 

5734 .TOC "FLOATING POINT DOUBLE PRECISION NORMALIZE" 
5735 

5736 ; NORMALIZE AR!Q 

5737 ; DNORMO : READ [ AR ] , NORM DISP, ;SEE WHAT WE NEED TO DO 

5738 ; FE__FE+S#, S#/2, J/DNORM ; AD JUST FOR INITIAL SHIFTS 

5739 =0000 

5740 DNORM: [AR]_[AR]*2 LONG, ;SHIFT LEFT 

5741 FE_FE-1, ASHC, ; ADJUST EXPONENT 

5742 NORM DISP, J/DNORM ; TRY AGAIN 

5743 TL [ FLG] 9 FLG.SN/1, J/DNEG ; RESULT IS NEGATIVE 

5744 READ [AR], NORM DISP, ;SEE IF WE WENT TOO FAR 

5745 CALL [DROUND] ; AND ROUND ANSWER 

5746 TL [FLG], FLG.SN/1, J/DNEG ; RESULT IS NEGATIVE 

5747 [AR]_[AR]*.5 LONG, ASHC, 

5748 FE_FE+1, CALL [DROUND] 

5749 TL [FLG], FLG.SN/1, J/DNEG ; RESULT IS NEGATIVE 

5750 [AR]_[AR]*.5 LONG, ASHC, 

5751 FE_FE+ 1 , CALL [DROUND] 

5752 TL [FLG], FLG.SN/1, J/DNEG ; RESULT IS NEGATIVE * 

5753 Q_[MAG] . AND . Q , ; HIGH WORD IS ZERO 

5754 HOLD RIGHT, J/DN0RM1 ; GO TEST LOW WORD 

5755 =1110 [FLG]_0 ;[122] CLEAR FLAG WORD 

5756 = 

5757 AC[ 1 ]_[ARX] . AND. [MAG] , ; STORE LOW WORD 

5758 J/STAC ; GO DO HIGH WORD 
5759 

5760 

5761 DNORM 1 : READ 0, SKIP AD.EQ.O ; TEST LOW WORD 

5762 =0 [AR]_[AR]*2 LONG, ; LOW WORD IS NON-ZERO 

5763 FE_FE - 1 , ASHC, ; ADJUST EXPONENT 

5764 NORM DISP, J/DNORM ; KEEP LOOKING 

5765 AC[1]_[AR], J/STAC ;WHOLE ANSWER IS ZERO 
5766 
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U 2026, 3155,7222,0000,4174,4007,0700,0000,0000,0000 
U 2027, 2030,2222,0000,4174,4007,0511,4000,0000,0000 
U 3155, 2030,4221,0013,4174,4007,0700,0000,0000,0000 



U 2030, 0200,7441,0303,4174,4003,4701,0000,0000,0000 
U 2031, 0200,2441,0303,4174,4003,4701,4000,0000,0000 



U 0200, 0200,3444,0303,4174,4043,4701,1000,0041,1777 

U 0202, 0322,3333,0003,4174,4003,4701,0010,0000,0000 

U 0204, 0322,3446,0303,4174,4047,0700,1010,0041,0001 

U 0206, 0322,3446,0303,4174,4047,0700,1010,0041,0001 

U 0210, 3160,4002,0000,4174,0007,0700,0000,0000,0000 
U 0216, 0630,4111,1204,4174,4007,0700,0000,0000,0000 

U 0630, 3161,41 1 1 ,0004,4174,4007,0700,0010,0000,0000 

U 0632, 3156,6111,0004,4174,4007,0700,0000,0000,0000 

U 0633, 2032,2441,0404,4174,4007,0561,4000,0000,0000 

U 3156, 2032,4221,0013,4174,4007,0700,0000,0000,0000 

* 

U 2032, 3157,7333,0003,0174,4007,0700,0400,0000,0000 
U 2033, 3157, 2443, 0300, 0174, 4p07, 0701 ,4400,0000,0000 

U 3157, 0100,4113,0400,1174,4156,4700,0400,0000,1441 

U 3 1 60 , 2034 , 3223 , 0000 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 2034, 0200,3444,0303,4174,4043,4701,1000,0041,1777 
U 2035, 1515,3440,0303, 1 1 74 , 4007 , 0700, 0400 , 0000 , 1441 



254) 
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5767 


;HERE 


5768 


=0 


5769 


DNEG : 


5770 




577 1 


DNEG1 : 


5772 


=0 


5773 


DNEG2 : 


5774 




C77C 
%J / 1 Z3 




C77C 




R777 




5778 




R77Q 


rjMMnPM 


Zj I ov 




Zj 1 O 1 




5782 


= 00 1 * 


5783 




5784 


= 010* 


5785 




5786 


=0 1 1 * 


5787 




5788 


= 100* 


5789 




Zj / W 


= 111* 


579 1 




5792 


=oo 

w 


5793 




5794 


= 10 


5795 




5796 


= 11 


5797 




5798 


_ 


5799 


DNN1 : 


5800 




5801 


DNN2 : 


5802 




5803 


nNflRM9 


5804 




5805 




5806 


DNNRM1 


5807 


=0 


5808 




5809 




5810 




5811 





Q_.N0T.Q, J/DNEG1 

Q_-Q, SKIP CRY2, J/DNEG2 

[FLG]_0 

[AR]_.N0T. [AR] , 
NORM DISP, J/DNNORM 
[AR]_-[AR], 
NORM DISP, J/DNNORM 



[AR]_[AR]*2 LONG, 
FE_FE - 1 , ASHC, 
NORM DISP, J/DNNORM 
READ [AR] , NORM DISP, 
CALL [DROUND] 
[AR]_[AR]*.5 LONG, ASHC, 
FE_FE+ 1 , CALL [DROUND] 
[AR]_[AR]*.5 LONG, ASHC, 
FE_FE+1, CALL [DROUND] 
Q_[MAG] . AND . Q, 
HOLD RIGHT, J/DNNRM1 
[ARX]_[ARX] .AND. [MASK] 

[ARX]_[ARX] . AND. [MAG] , 
CALL [CHKSN] 
[ARX]_[ARX] .XOR. [MAG] , 
J/DNN1 

[ARX]_-[ARX] , 3T, 
SKIP CRY 1 , J/DNN2 

[FLG]_0 

AC_ . NOT . [ AR ] , J/DN0RM2 
AC_-[AR], 3T 
AC[1]_[ARX].AND.[MAG], 
NEXT INST 

READ 0, SKIP AD.EQ.O 
[AR]_[AR]*2 LONG, 
FE_FE-1, ASHC, 
NORM DISP, J/DNNORM 
AC[1] [AR], J/STAC 



ONES COMP 



NO CARRY 

GO NORMALIZE 

CARRY 

NORMALIZE 



SHIFT 1 PLACE 
ADJUST EXPONENT 
LOOP TILL DONE 
SEE IF WE WENT TOO FAR 
AND ROUND ANSWER 



HIGH WORD IS ZERO 
GO TEST LOW WORD 
REMOVE ROUNDING BIT 

ALSO CLEAR SIGN 
ONES COMP? 
YES- -ONES COMP 
CONTINUE BELOW 
NEGATE RESULT 



; CLEAR FLAG 



; STORE LOW WORD 
; ALL DONE 

; TEST LOW WORD 

;LOW WORD IS NON-ZERO 

; ADJUST EXPONENT 

; KEEP LOOKING 

;WHOLE ANSWER IS ZERO 



o 

; T10KI .MCR[ 10, 1141] 11:45 1 1-AUG-1984 MICRO 

; FLT.MIC[ 10, 1 141 ] 01 : 46 20-MAR- 198 1 

U 3161, 0002,4553,1300,4374,4004,1321,0000,0000,2000 



U 2036, 0023,3551,1313,4374,0004,1700,0000,0000,2000 
U 2037, 0023,5551,1313,4374,0004,1700,0000,0000,2000 



U 0322, 0462,0007,0704,4174,4007,0511,0000,0000,0000 

U 0326, 0322,3446,0303,4174,4047,0700,1000,0041,0001 

U 0462, 0016,3770,0303,4324,0454,1700,0000,0041,0000 

U 0463, 0462,0441,0303,4174,4003,4701,4000,0000,0000 

U 0466, 0462,3447,0303,4174,4007,0700,1000,0041,0001 
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FLOATING POINT -- DOUBLE PRECISION NORMALIZE 



5812 CHKSN: TL [FLG], FLG.SN/1, RETURN [2] 
5813 

5814 ; SUBROUTINE TO SET/CLEAR FLG.SN 

5815 ; CALL WITH: 

5816 ; CALL [ SETSN] , SKIP IF WE SHOULD CLEAR 

5817 ; RETURNS 23 

5818 =0 

5819 SETSN: [ FLG]_[ FLG] . OR . # , FLG.SN/1, HOLD RIGHT, RETURN [23] 

5820 CLRSN: [ FLG ]_[ FLG ] . AND . NOT . # , FLG.SN/1, HOLD RIGHT, RETURN [23] 
5821 

5822 

5823 ; SUBROUTINE TO ROUND A FLOATING POINT NUMBER 

5824 ; CALL WITH: 

5825 ; NUMBER IN AR!Q AND NORM DISP 

5826 ; RETURNS 16 WITH ROUNDED NUMBER IN AR ! ARX 

5827 ; 

5828 =*01* 

5829 DROUND: [ ARX ]_(Q+ 1 ) * . 5 , ; ROUND AND SHIFT 

5830 SKIP CRY2, ;SEE IF OVERFLOW 

5831 J/DRND1 ; COMPLETE ROUNDING 

5832 [AR]_[AR]*.5 LONG, ;WE WENT TOO FAR 

5833 FE_FE+ 1 , ASHC, J/DROUND ;SHIFT BACK AND ROUND 

5834 = *010 

5835 DRND1: [AR]_EXP, RETURN [16] ; NO OVERFLOW 

5836 =011 [AR]_[AR]+.25, ; ADD CARRY (BITS 36 AND 37 

5837 ; ARE COPIES OF BITS) 

5838 NORM DISP, ;SEE IF OVERFLOW 

5839 J/DRND1 ; .. 

5840 =110 [AR]_[AR]*.5, ;SHIFT RIGHT 

5841 FE_FE+1, ; KEEP EXP RIGHT 

5842 J/DRND1 ; ALL SET NOW 



5843 = 
5844 



; T10KI.MCR[10, 1141] 11:45 11 -AUG- 1984 MICRO 
; EXTEND. MIC[ 10, 1141] 11:35 26- JULY- 1984 



D 


0001 , 


0001 , 


1740,2100 


D 


0002, 


0002, 


1740,2100 


U 


UUUo , 


UUUo , 


4 7 ac\ a nn 


r> 

U 


AAA/f 

UUU4 , 


AAA*) 

UUUZ , 


aiaa oa nn 


U 


AAAK 

UUUO , 


aaac^ 


1 74A a nn 


D 


0006, 


0006, 


1740,2100 


D 


0007, 


0007, 


1740,2100 


U 


AA 4 A 


nnn ^ 
UUU i , 


1 7 4 oa nn 


U 


aa 4 4 

UU1 1 , 


AAA/ 




n 
U 


UOI 2. , 


AAA -4 


<7yiQ i nn 
1 / *f , Z 1 uu 


D 


00 13, 


AAAA 


■4 7 /i oa nn 
1 / 4 , Z 1 UU 


n 
U 


AA 4 A 

UU 1 4 , 


AAA H 

UUU 1 , 


aiaa oa nn 




001 5 


0000 , 


1744 2100 


D 


0016^ 


0002! 


1744,2100 


D 


0017, 


0003, 


1744,2100 


D 


0020, 


0000, 


1746,2100 


D 


0021 , 


0000, 


1747,2100 


D 


0022, 


0000, 


1750,2100 


D 


0023, 


0000, 


1751 ,2100 


D 


0024, 


0001 , 


1751 ,2100 


D 


0025, 


0002, 


1751 ,2100 


D 


0026, 


0004, 


1751 ,2100 


D 


0027, 


0010, 


1751 ,2100 



i 
2 



f 



1 
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5845 


.TOC "EXTEND -- DISPATCH ROM ENTRIES" 




5846 








5847 


. DCODE 






5848 


001 : I , SJCL , 


J/L-CMS 




5849 


I, SJCE, 


J/L-CMS 




5850 


I, SJCLE, 


J/L-CMS 




5851 


I, B/2, 


J/L-EDIT 




5852 


I, SJCGE, 


J/L-CMS 




5853 


l\ SJCN, 


J/L-CMS 




5854 


I, SJCG, 


J/L-CMS 




5855 








5856 


010: I, B/1, 


J/L-DBIN 


CVTDBO 


5857 


I, B/4, 


J/L-DBIN 


CVTDBT 


5858 


I ' B/1 ' 


J/L-BDEC 


CVTBDO 


5859 


I , B/0, 


J/L-BDEC 


CVTBDT 


5860 








5861 


014 : I , B/ 1 , 


J/L-MVS 


MOVSO 


5862 


I , * B/0, 


J/L-MVS 


MOVST 


5863 


I B/2 

-J. , U/ , 


J/L-MVS 


MOVSLJ 


5864 


I, B/3, 


J/L-MVS 


MOVSRJ 


5865 








5866 


020: I, 


J/L-XBLT 


XBLT 


5867 




J/L-SPARE-A 


GSNGL 


5868 




J/L-SPARE-B 


GDBLE 


5869 


l\ B/0, 


J/L-SPARE-C 


GDFIX 


5870 


I, B/1, 


J/L-SPARE-C 


GFIX 


5871 


I, B/2, 


J/L-SPARE-C 


GDFIXR 


5872 


I, B/4, 


J/L-SPARE-C 


GFIXR 


5873 


I, B/10, 


J/L-SPARE-C 


DGFLTR 


5874 


;30: 




GFLTR 


5875 






GFSC 



5876 .UCODE 
5877 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

EXTEND . MIC[ 10, 1141] 11:35 26-JULY-1984 



MICRO 



U 1740, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1741, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1742, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1743, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1744, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1746, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1747, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1750, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1751, 0400,4751,1203,4374,4007,0700,0000,0000,0040 
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EXTEND DISPATCH ROM ENTRIES 



5878 


1 740 : 




5879 


L-CMS : 


LUUO 


5880 


1741 : 




588 1 


L-EDIT : 


LUUO 


5882 


1742 : 




5883 


L-DBIN: 


LUUO 


5884 


1743 : 




5885 


L-BDEC: 


LUUO 


5886 


1744 : 




5887 


L-MVS : 


LUUO 


5888 


1746: 




5889 


L-XBLT: 


LUUO 


5890 


1747: 




5891 


L-SPARE 


-A: LUUO 


5892 


1750: 




5893 


L-SPARE 


-B: LUUO 


5894 


1751 : 




5895 


L-SPARE 


-C: LUUO 



5896 

5897 ; NOTE : WE DO NOT NEED TO RESERVE 3746 TO 3751 BECAUSE THE CODE 

5898 ; AT EXTEND DOES A RANGE CHECK. 
5899 



T10KI .MCRI 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



D 0123, 0000,1467,3100 

U 1467, 2040,3771,0005,4365,5007,0700,0200,0000,0002 

U 2040, 3556,4553,0500,4374,4007,0321,0010,0076,0740 

U 2044, 3162,4521,0206,4374,4007,0700,0000,0000,0740 

U 3162, 3163,3111,0605,4174,0417,0700,0000,0000,0000 

U 3163, 3164,3333,0005,4174,4217,0700,0000,0000,0500 

U 3164, 3165,3333,0003,7174,4007,0700,0400,0000,0240 
U 3165, 0170,4443,0000,2174,4006,6700,0000,0000,0000 

U 0170, 0172,0551,0505,2270,4007,0700,0000,0000,0000 

U 0172, 0556,5741,0505,4174,4003,7700,0200,0000,0010 
U O 1 74 , 3 1 66 , 055 1 , 0505 , 2270 , 4007 , 0700 , 0200 , 0004 , 05 1 2 
U 0176, 3166,3443,0500,4174,4007,0700,0200,0004,0512 

U 3166, 3165,3771,0005,4361,5217,0700,0200,0000,0502 

U 0556 , 3400 , 3333 , 0005 ,7174, 400 1 , 2700 , 0400 , 0000 ,024 1 
U 0557, 2042,3333,0005,4174,4007,0530,0000,0000,0000 

U 2042 , 3400 , 3333 , 0005 ,7174, 400 1 , 2700 , 0400 , 0000 ,024 1 

U 2043, 0556,3771 ,0005,4374,0007,0700,0000,0077,7777 
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EXTEND -- INSTRUCTION SET DECODING 

5900 -TOC "EXTEND --INSTRUCTION SET DECODING" 
5901 

5902 ; EACH INSTRUCTION IN THE RANGE 1-23 GOES TO 1 OF 2 PLACES 

5903 ; 1740-1747 IF NOT UNDER EXTEND 

5904 ; 3740-3747 IF UNDER EXTEND 
5905 

5906 . DCODE 

5907 123: I, READ/1, J/EXTEND 

5908 .UCODE 
5909 

5910 1467: 

5911 EXTEND: MEM READ, [BR]_MEM ; FETCH INSTRUCTION 

5912 =0** TL [BR], #/760740, ; IN RANGE 0-17 (AND.AC#=0) 

5913 CALL [BITCHK] ; TRAP IF NON-ZERO BITS FOUND 

5914 [BRX ]_[HR ] . AND . # CLR RH, ;SPLIT OUT AC NUMBER 

5915 #/000740 ; FROM EXTEND INSTRUCTION 

5916 [BR]_[BR] .OR. [BRX] , ; LOAD IR AND AC # 

5917 HOLD RIGHT, LOAD IR ; 

5918 READ [BR], LOAD BYTE EA, ; LOAD XR # 

5919 J/EXTEAO ;COMPUTE E1 
5920 

5921 EXTEAO: WORK[ E0]_[ AR ] 

5922 EXTEA1: EA MODE DISP 

5923 =100* 

5924 EXTEA: [BR ]_[BR ]+XR 

5925 EXTDSP: [BR ]_EA FROM [BR], LOAD VMA , 

5926 B DISP, J/EXTEXT 

5927 [BR]_[BR]+XR, START READ, PXCT EXTEND EA, LOAD VMA, J/EXTIND 

5928 . VMA_[BR], START READ, PXCT EXTEND EA 
5929 

5930 EXTIND: MEM READ, [BR]_MEM, HOLD LEFT, LOAD BYTE EA, J/EXTEA 1 
5931 

5932 ; HERE TO EXTEND SIGN FOR OFFSET MODES 

5933 =1110 

5934 EXTEXT: W0RK[ E 1 ]_JBR ] , ; SAVE E1 

5935 DISP/DROM, J/3400 ; GO TO EXTENDED EXECUTE CODE 

5936 READ [BR], SKIP DP18 ; NEED TO EXTEND SIGN 

5937 =0 W0RK[E1 ]_JBR] , ;POSITIVE 

5938 DISP/DROM, J/3400 

5939 [BR]_#, #/777777, HOLD RIGHT, ; NEGATIVE 

5940 J/EXTEXT 
5941 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; EXTEND. MIC[ 10, 1 141 ] 11:35 26- JULY- 1984 



U 3744, 3361 ,01 1 1 ,0703,4174,4007,0700,0210,0004,0012 

U 3754, 2041,3771,0005,1276,6007,0701,0000,0000,1443 

U 2041, 3556.4553,0500,4374,4007,0321,0010,0077,7000 

U 2045 , 2046 ,3771, 0003 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 



U 2046 , 3363,4521, 0306 , 4374 , 4007 , 0700 , 00 1 , 0077 , 7000 



U 2047, 2050,2113,0305,1174,4007,0521,4400,0000,1443 

U 2050 , 3167,7441 ,0503 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 2051 , 3167,7441 ,0303,4174,4007,0700,0000,0000,0000 



U 3167, 0574,3333,0003,7174,4003,7700,0400,0000,0242 



U 0574, 0500,3771,0013,4370,4007,0700,0000,0000,0003 
U 0575, 3170,3771,0005,1276,6007,0701,0000,0000,1444 

U 0576, 3210,3441,0304,4174,4007,0700,0000,0000,0000 



U 0577, 0650,3771,0004,1276,6007,0522,0000,0000,1443 

U 3170, 3171,3333,0005,4174,4007,0700,1000,0041,6020 
U 3171, 2021,4222,0000,4174,4006,7701,1000,0041,1770 



U 2021, 2021,4224,0003,4174,4026,7701,1000,0041,1770 
U 2023 , 3172,7221, 0003 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3172, 0507,4113,0312,7174,4007,0700,0400,0000,0243 
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EXTEND MOVE STRING -- SETUP 

5942 .TOC "EXTEND -- MOVE STRING -- SETUP" 
5943 

5944 ; HERE TO MOVE A STRING 

5945 ;COME HERE WITH: 

5946 ; AR/ EO 

5947 ; BR/ E1 

5948 ; 

5949 3744: 

5950 MVS: [AR]_[AR]+1, ; GO FETCH FILL 

5951 LOAD VMA, ; BYTE 

5952 START READ, ; . . 

5953 CALL [GTFILL] ; SUBROUTINE TO COMPLETE 

5954 3754: [BR ]_AC [DLEN] ; GET DEST LENGTH AND FLAGS 

5955 =0** TL [BR], #/777000, ; ANY FLAGS SET? 

5956 CALL [BITCHK ] ;SEE IF ILLEGAL 

5957 [AR]_AC ; GET SRC LENGTH AND FLAGS 

5958 =0 [BRX ]_[ AR ] . AND . # CLR RH, ;COPY FLAGS TO BRX 

5959 #/777000, ; .. 

5960 CALL [CLRFLG] ; CLEAR FLAGS IN AR 

5961 ;NEW DLEN IS <SRC LEN>-<DST LEN> 

5962 AC[DLEN]_[AR]-[BR] , 3T , ;COMPUTE DIFFERENCE 

5963 SKIP DPO ;WHICH IS SHORTER? 

5964 =0 [AR]_.NOT. [BR] , DESTINATION 

5965 J/MVS1 ; GET NEGATIVE LENGTH 

5966 [AR]__.NOT. [AR] ;SOURCE 

5967 MVS 1 : WORK[SLEN]_[ AR] , ; .. 

5968 B DISP ;SEE WHAT TYPE OF MOVE 

5969 ; SLEN NOW HAS -<LEN OF SHORTER STRING>-1 

5970 =1100 

5971 STATE_[SRC], J/MOVELP ; TRANSLATE - -ALL SET 

5972 [BR]_AC[DSTP] , J/MVSO ; OFFSET BUILD MASK 

5973 [ARX]_[AR], ; LEFT JUSTIFY 

5974 J/MOVSTO ; . . 

5975 [ARX]_AC[DLEN] , ; RIGHT JUSTIFY 

5976 SKIP DPO, 4T , ;WHICH IS SHORTER? 

5977 J/MOVRJ 
5978 

5979 MVSO: READ [BR], FE_S+2 ; GET DST BYTE SIZE 

5980 0_0, BYTE STEP ;BUILD AN S BIT MASK 

5981 =0* 

5982 MVSO 1 : GEN MSK [AR], BYTE STEP, J/MVSO 1 

5983 [AR]_.NOT.Q ;BITS WHICH MUST NOT BE SET 

5984 WORK [ MSK ]__[AR] .AND. [MASK] , ; SAVE FOR SRCMOD 

5985 J/MOVLPO ; GO ENTER LOOP 
5986 



T10KI .MCR[ 10, 1 141 ] 
EXTEND. MIC[ 10, 1141] 



11:45 11 -AUG- 1984 
11 :35 26- JULY- 1984 



MICRO 31(254) 
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U 0500, 1040,0551 ,0703,7274,4007,0701 ,0010,0000,0242 

U 0501 , 1000,3441 ,0304,4174,4007,0520,0000,0000,0000 

U 0504, 3173, 1771 , 0003 , 7274 , 4007 , 0701 , 4000 , 0000 , 0242 

U 0505, 3353,3771,0013,4370,4007,0700,0010,0000,0005 

U 0507, 0500,3771 ,0013,4370,4007,0700,0000,0000,0003 



U 3173, 2052,3771 ,0005, 1276,6007,0522,0000,0000, 1443 
U 2052 , 3 1 74 , 3440 , 0303 ,1174, 4007 , 0700 , 0400 , 0000 , 1 443 
U 2053, 2052,111.1,0503,4174,4007,0700,4000,0000,0000 



U 3174, 3175,7771,0003,7274,4007,0701, 

U 3175, 2054,3333,0005,4174,4007,0520, 

U 2054, 2055,0111,0503,4174,4007,0700, 

U 2055, 3176,3111,0603,4174,4007,0700, 

U 3176, 1515,4221,0013,4170,4007,0700, 



0000,0000,0242 
0000,0000,0000 
0000 , OOOO , 0000 
0000,0000,0000 
0000,0000,0000 



5987 
5988 
5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 
6003 
6004 
6005 
6006 
6007 
6008 
6009 
6010 
601 1 
6012 
6013 
6014 
6015 
6016 
6017 



.TOC 



•EXTEND -- MOVE STRING 



OFFSET/TRANSLATE" 



; HERE IS THE LOOP FOR OFFSET AND TRANSLATED MOVES 
=000 

MOVELP: [AR]_W0RK[SLEN]+1 , 

CALL [SRCMOD] 
=001 [ARX]_[AR], SKIP DPO, 

J/M0VST2 
=100 [AR]_-WORK[SLEN] , 

J/MVABT 

STATE_[SRC+DST] , 
CALL [PUTDST] 



= 111 
MOVLPO; 



STATE_[SRC], J/MOVELP 



UPDATE STRING LENGTH 
GET A SOURCE BYTE 
(1) LENGTH EXHAUSTED 

SEE IF FILL IS NEEDED 
(4) ABORT 



(5) NORMAL- -STORE DST BYTE 
(7) DPB DONE 



; HERE TO ABORT A STRING MOVE DUE TO TRANSLATE OR OFFSET FAILURE 



MVABT: 
=0 

MVABT 1 : 



MVABT2: 
=0 

MVEND: 



[BR]_AC[DLEN] , 
SKIP DPO, 4T 

AC[DLEN]_[AR] , J/MVABT2 
[AR]_[AR]-[BR] , 
J/MVABT 1 

[AR]_.NOT.WORK[SLEN] 
READ [BR] , SKIP DPO 
[AR]_[AR]+[BR] 
[AR]_[AR] .OR. [BRX] 
END STATE, J/STAC 



;WHICH STRING IS LONGER 



PUT AWAY DEST LEN 
DEST LEN WAS GREATER 
STICK BACK IN AC 

GET UNDECREMENTED SLEN 
NEED TO FIXUP SRC? 
SRC LONGER BY (DLEN) 
PUT BACK SRC FLAGS 
ALL DONE 



\ J 

; T 1 OK I . MCR [ 1 , 1 1 4 1 ] 11:45 11-AUQ-1984 MICRO 

; EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



U 0650, 3177,3771 ,0003, 1276,6007,0701 ,0000,0000, 1441 

U 0651 , 2245,3771 ,0013,4370,4007,0700,0010,0000,0006 

U 0653, 321 1 ,0551 ,0704,7274,4007,0701 ,0000,0000,0242 

U 3177, 2056,3440,0303,1174,4007,0670,0400,0000,1441 

U 2056 , 3202 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 1 
rrupt . 

U 2057 , 2060 ,1111, 0704 ,4174, 4007 , 052 1 , 4000 , 0000 , 0000 

U 2060, 0750,3770,0305,4334,4016,7371,0000,0033,6000 

U 2061, 0546,4223,0000,1174,4007,0700,0400,0000,1443 

U 0750 , 3177, 344 1 , 0503 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 0751 , 3200,7771 ,0003,7274,4007,0701 ,0000,0000,0242 

U 0752 , 320 1 , 3770 , 0503 , 4334 , 40 1 7 , 0700 , 0000 , 0032 , 6000 

U 0753, 3200,7771 ,0003,7274,4007,0701 ,0000,0000,0242 

U 3200, 2062, 3440,0303, 1 1 74 , 4007 , 0700, 0400, 0000, 1443 

U 2062, 3566,01 1 1 ,0403,4174,4007,0700,0010,0000,0000 

U 2063, 3622,3113,0306,0174,4007,0700,0400,0000,0000 

U 320 1, 3177,0111, 0703 ,4170, 4007 , 0700 , 0000 , 0000 , 0000 



U 3202 , 3203 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 3 

U 3203 , 3204 , 3333 , 0004 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 2 

U 3204 , 2064 , 3333 , 0006 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 4 

U 2064 , 3460 , 4443 , 0000 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 

U 2066, 3205,3771,0003,7274,4007,0701,0000,0000,0211 

U 3205, 3206,3771 ,0005,7274,4007,0701 ,0000,0000,0213 

U 3206, 3207,3771 ,0004,7274,4007,0701 ,0000,0000,0212 



U 3207, 



3177,3771 ,0006, 7274,4007,0701 ,0000,0000,0214 
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EXTEND -- MOVE STRING MOVSRd 

6018 .TOC "EXTEND -- MOVE STRING MOVSRd" 
6019 

6020 =00 

6021 MOVRd: [ AR ]_AC [ SRCP ] , d/MVSKP ; SRC LONGER, SKIP OVER SOME 

6022 STATE_[DSTF ] , ;DST LONGER, FILL IT 

6023 CALL [MOVFIL] ; .. 

6024 =11 [ARX]_W0RK[SLEN]+1 , ; DONE FILLING 

6025 d/M0VST1 ; GO MOVE STRING 
6026 

6027 ; HERE TO SKIP OVER EXTRA SOURCE BYTES 

6028 MVSKP: AC[ SRCP ]_[ AR ] , SKIP -1MS ; [ 1 2 1 ] Is there a timer interrupt? 

6029 =0 WORK[ SV . AR ]_[ AR ] , d/MVSK2 ;[121][123] Yes, save regs for int 

6030 [ARX]_[ARX]-1, 3T , ; DONE SKIPPING? 

6031 SKIP DPO 

6032 =0 IBP DP, IBP SCAD, ;NO--START THE IBP 

6033 SCAD DISP, SKIP IRPT, ;4-WAY DISPATCH 

6034 3T, d/MVSKP 1 ; GO BUMP POINTER 

6035 AC[DLEN]_0, ; LENGTHS ARE NOW EQUAL 

6036 d/M0VST4 ; GO MOVE STRING 
6037 

6038 =00 

6039 MVSKP 1 : [ AR ]_[ BR ] , d/MVSKP ;N0 OVERFLOW 

6040 [AR]_.NOT.WORK[SLEN] , ; INTERRUPT 

6041 d/MVSK3 ; .- 

6042 SET P TO 36-S, ; WORD OVERFLOW 

6043 d/MVSKP2 ;FIXUP Y 

6044 [AR]_.NOT.WORK[SLEN] ;[121] INTERRUPT or timer. 

6045 MVSK3: AC[DLEN]_[ AR ] ; RESET DLEN 

6046 =0 [AR]_[AR]+[ARX], 

6047 CALL [INCAR] ; ADD 1 TO AR 

6048 AC_[AR].OR.[BRX], ; PUT BACK FLAGS 

6049 d/ITRAP ;D0 INTERRUPT TRAP 
6050 

6051 MVSKP2: [AR]_[AR]+1, HOLD LEFT, ;BUMP Y 

6052 d/MVSKP ; KEEP GOING 
6053 

6054 ; BEGIN EDIT [123] 

6055 MVSK2: WORK[ SV . BR ]_[BR ] ; SAVE ALL 

6056 WORK[SV.ARX]_[ARX] ; THE REGISTERS 

6057 WORK[SV.BRX]_[BRX] ; FOR THE TICK 

6058 =0* CALL [TICK] ; UPDATE CLOCK AND SET INTERUPT 

6059 [AR]_WORK[SV.AR] ;NOW PUT 

6060 [BR]_WORK[SV.BR] ; THEM ALL 

6061 [ARX]_WORK[SV.ARX] ; BACK SO WE 

6062 [BRX]_WORK[SV.BRX] , ; CAN CONTINUE 

6063 d/MVSKP 

6064 ; END EDIT [123] 
6065 



T10KI .MCR[ 10, 1 141 ] 
EXTEND. MIC[ 10, 1 141 ] 



11:45 11 -AUG- 1984 
11 :35 26- JULY- 1984 



MICRO 31(254) 



U 3210, 3211,0111,0704,4174,4007,0700,0000,0000,0000 
U 3211, 0540,3771,0013,4370,4007,0700,0000,0000,0003 



U 0540, 2256,3333,0004,7174,4007,0520,0410,0000,0242 

U 0541 , 1000,3441 ,0304,4174,4007,0520,0000,0000,0000 

U 0542, 3353,3771,0013,4370,4007,0700,0010,0000,0005 

U 0546, 3211,0551,0704,7274,4007,0701,0000,0000,0242 



U 1000, 3212,4223,0000, 1 174 , 4007,0700,0400,0000, 1443 

U 1001, 2245,3771,0013,4370,4007,0700,0010,0000,0004 

U 1003 , 2125, 3440 , 0606 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 

U 3212, 3213,3113, 0406 ,0174, 4007 , 0700 , 0400 , OOOO , OOOO 

U 3213, 0252,4221,0013,4170,4007,0700,0000,0000,0000 



6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
6081 
6082 
6083 
6084 
6085 
6086 
6087 
6088 
6089 
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.TOC 



"EXTEND -- MOVE STRING SIMPLE MOVE LOOP " 



; HERE FOR NO-MODIFICATION STRING MOVES 
MOVSTO 
M0VST1 
=000 



MOVSTX: 

=010 

= 110 
M0VST4: 



=00 

M0VST2: 



= 11 



[ARX]_[ARX]+1 
STATE_[SRC] 



WORK[SLEN]_[ARX] , 
SKIP DPO, CALL [GSRC] 
[ARX]_[AR] , 
SKIP DPO, J/M0VST2 
STATE_[SRC+DST] , 
CALL [PUTDST] 

[ARX]_W0RK[SLEN]+1 , 
J/MOVST 1 



CANT DO [ARX]_[AR]+1 
PREPARE FOR PAGE FAIL 



AC[DLEN]_0, J/M0VST3 

STATE_[DST], CALL [MOVFIL] ; FILL OUT DEST 
AC [BRX], U/ENDSKP ; ALL DONE 



GO GET A SOURCE BYTE 

SHORT STRING RAN OUT 

GO SEE IF FILL NEEDED 

WILL NEED TO BACK UP BOTH POINTERS 

STORE BYTE 

COUNT DOWN LENGTH 
LOOP OVER STRING 



; CLEAR DEST LEN, REBUILD SRC 



M0VST3: AC_[ ARX] . OR . [BRX] 
END STATE, J/SKIPE 



; REBUILD SRC 



o 

; T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 
; EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



U 3740, 2070,3771,0004,1276,6007,0701,0000,0000,1443 

U 2070, 3556,4553,0400,4374,4007,0321,0010,0077,7000 

U 2074 , 207 1 , 377 1 , 0006 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 

U 2071, 3556,4553,0600,4374,4007,0321,0010,0077,7000 

U 2075, 2072,2113,0604,4174,4007,0521,4000,0000,0000 

U 2072, 2073,0111,0703,4174,4007,0700,0000,0000,0000 

U 2073, 2076,0111,0703,4170,4007,0700,0200,0004,0012 



U 2076, 3564,4221,0003,4174,4007,0700,0010,0000,0000 
U 2077 , 3223,3223, 0000 ,7174, 4007 , 0700 , 0400 , 0000 , 0244 



254) 
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EXTEND -- COMPARE STRING 



6090 


.TOC 


6091 




6092 


3740 


6093 


CMS: 


6094 


=0** 


6095 




6096 


=0** 


6097 




6098 


=0 


6099 




6100 


=0 


6101 




6102 




6103 




6104 




6105 





"EXTEND 



COMPARE STRING" 



t ARX]_AC[DLEN] ; GET DEST LEN 

TL [ ARX] , 0/777000, CALL [BITCHK] 
[BRX]_AC ; GET SRC LEN 

TL [BRX], 0/777000, CALL [BITCHK] 

[BRX]-[ARX] , 3T, SKIP DPO ;WHICH STRING IS LONGER? 



[AR]_[AR]+1 
VMA_[AR]+1, START READ 
[AR]_0, 

CALL [LOADQ] 

WORK[FILL]_Q, 

J/CMS2 



SRC STRING IS LONGER 
DST STRING 

FORCE FIRST COMPARE TO BE 
EQUAL 

PUT FILL INTO Q 
SAVE FILLER 
ENTER LOOP 



T10KI .MCR[ 10, 1 141 ] 11:45 1 1 -AUG- 1984 

EXTEND. MIC[ 10, 1 141 ] 11:35 26- JULY- 1984 



MICRO 



U 2100, 0250,4221,0013,4170,4003,7700,0000,0000,0000 
U 2101, 3214,3771,0003,1276,6007,0701,0000,0000,1441 
U 32 1 4 , 1 004 , 3333 , 0006 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 1004, 2257,3771,0013,4370,4007,0700,0010,0000,0011 

U 1005 , 2 102 , 3333 ,0004 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 
U 1006, 3215,3333,0003,7174,4007,0700,0400,0000,0245 

U 3215, 3216,3440, 0606 ,0174, 4007 , 0700 , 0400 , OOOO , 0000 
U 3216, 3217,3771,0013,4370,4007,0700,0000,0000,0010 
U 3217, 1020,3333,0004,4174,4007,0520,0000,0000,0000 

U 1020, 2104,4443,0000,4174,4007,0700,0010,0000,0000 

U 1021, 3220,3771,0003,7274,4007,0701,0000,0000,0244 
U 1022, 3220,3440,0404,1174,4007,0700,0400,0000,1443 



U 3220, 3221,4111,1203,7174,4007,0700,0000,0000,0245 

U 3221, 3222,4551,1205,7274,4007,0700,0000,0000,0245 

U 3222, 3223,2111,0503,4174,4007,0700,4000,0000,0000 

U 3223, 3224,1111,0704,4174,4007,0700,4000,0000,0000 

U 3224, 3225,1111,0706,4174,4007,0700,4000,0000,0000 

U 3225, 2100,3333,0003,4174,4007,0621,0000,0000,0000 



U 2102, 3226,3772,0000,7274,4007,0701,0000,0000,0244 

U 2103, 2100,4221,0003,4174,4007,0700,0000,0000,0000 

U 3226, 3227,3771,0013,4370,4007,0700,0000,0000,0012 

U 3227 , 1020 , 3223 , 0000 ,7174, 4007 , 0700 , 0400 , 0000 , 0245 



U 2104, 3354,3771,0003,1276,6007,0701,0010,0000,1444 



U 2105, 0340,3333,0003,4174,4006,5701,1000,0051,0770 
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6106 ;HERE IS THE COMPARE LOOP. 

6107 ; ARX/ CONATINS REMAINING DEST LENGTH 

6108 ; BRX/ CONTAINS REMAINING SOURCE LENGTH 

6109 =0 

6110 CMS3: ; BYTES ARE NOT EQUAL 

6111 END STATE, ; NO MORE SPECIAL PAGE FAIL ACTION 

6112 SKIP-COMP DISP ;SEE SKIP-COMP-TABLE 

6113 CMS4: [ AR ]_AC [ SRCP ] ; GET BYTE POINTER 

6114 READ [BRX], SKIP DPO ; MORE IN SOURCE STRING? 

6115 =00 STATE_[EDIT-SRC] , ; PREPARE FOR PAGE FAIL 

6116 CALL [GETSRC] ; GO GET BYTE 

6117 READ [ARX], SKIP DPO, ;N0 MORE SRC- -SEE IF MORE DEST 

6118 J/CMS5 ; .. 

6119 WORK[CMS]_[AR] ; SAVE SRC BYTE 

6120 = 

6121 AC_[BRX] ;PUT BACK SRC LEN 

6122 STATE_[C0MP-DST] ;HAVE TO BACK UP IF DST FAILS 

6123 READ [ARX], SKIP DPO ; ANY MORE DEST? 

6124 =00 

6125 CMS6 : CALL [CMPDST] ; MORE DEST BYTES 

6126 [AR]_W0RK[FILL] , ;0UT OF DEST BYTES 

6127 J/CMS7 ; GO DO COMPARE 

6128 AC[DLEN]_[ ARX] ; GOT A BYTE, UPDATE LENGTH 

6129 = 

6130 CMS 7 : [ AR ]_[AR ]. AND . [MASK] , ; MAKE MAGNITUDES 

6131 WORK [CMS] 'WARM UP RAM 

6132 [BR]_[MASK] . AND . WORK [CMS ] , 2T ; GET SRC MAGNITUDE 

6133 [AR]_[BR]-[AR] REV ; UNSIGNED COMPARE 

6134 CMS2: [ ARX ]_[ ARX ] - 1 ; UPDATE LENGTHS 

6135 [BRX] [BRX] - 1 

6136 READ TAR], SKIP AD . EO . , " J/CMS3 ;SEE IF EQUAL 
6137 

6138 =0 

6139 CMS5: Q_W0RK[ FILL] , J/CMS8 ; MORE DST- -GET SRC FILL 

6140 [AR]_0, J/CMS3 ; STRINGS ARE EQUAL 

6141 CMS8 : STATE_J EDIT-DST ] ; JUST DST POINTER ON PAGE FAIL 

6142 WORK[CMS]_Q, J/CMS6 ; MORE DST--SAVE SRC FILL 
6143 

6144 =0 

6145 CMPDST: [ AR ]_AC [DSTP ] , ; GET DEST POINTER 

6146 CALL [IDST] ; UPDATE IT 

6147 READ [AR], ; LOOK AT BYTE POINTER . 

6148 FE_FE . AND . S# , S#/0770, ; MASK OUT BIT 6 

6149 BYTE DISP, J/LDB 1 ; GO LOAD BYTE 
6150 



T10KI .MCR[ 10, 1 141] 
EXTEND . MIC [ 10, 1141] 



11:45 11-AUG-1984 
1 1 :35 26-JULY-1984 



MICRO 



U 3742, 3230,4571,1203,4374,4007,0700,0000,0077,7777 
U 3230, 3231,3333,0003,7174,4007,0700,0400,0000,0243 

U 3231, 3232,3771,0003,0276,6007,0700,0000,0000,0000 

U 3232, 2065,4521,0306,4374,4007,0700,0000,0077,7000 

U 2065, 2202,3771,0004,1276,6007,0701,0010,0000,1444 
U 2067, 2106,3440,0404, 1 174,4007,0700,0400,0000, 1444 

U 2 106 , 2132, 3333 , 0006 , 4 1 74 , 4007 , 0520 , 0010 , 0000 , 0000 

U 2107, 0616,4551,0303,4374,0003,7700,0000,0000,0777 
U 06 1 6 , 3233 , 377 1 , 00 1 3 , 4370 , 4007 , 0700 , 0000 , 0000 , 0007 



U 0617, 0616,3551,0606,4374,0007,0700,0000,0040,0000 
U 3233, 0460,7333,0003,7174,4007,0700,0400,0000,0242 



U 0460, 1040,0551 ,0703,7274,4007,0701 ,0010,0000,0242 

U 0461 , 2120,4553,0600,4374,4007,0321 ,0000,0010,0000 

U 0464, 3240,7771 ,0003,7274,4007,0701 ,0000,0000,0242 

U 0465, 21 10, 1553,0300,4374,4007,0532,4000,0000,0012 

U 21 10, 3240,7771 ,0003,7274,4007,0701 ,0000,0000,0242 
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EXTEND -- DECIMAL TO BINARY CONVERSION 



6151 .TOC "EXTEND -- DECIMAL TO BINARY CONVERSION" 
6152 

6153 3742: 

6154 DBIN: [ AR ]_[ 777777 ] XWD ;IF WE ARE IN OFFSET MODE 

6155 WORK[MSK]_[AR] ; ONLY ALLOW 18 BITS 

6156 ; RANGE CHECKED (0-10) LATER 

6157 [AR]_AC ; GET SRC LENGTH 

6158 [BRX]_[ AR ] . AND . CLR RH, ;SPLIT OUT FLAGS 

6159 0/777000 ; .. 

6160 =0* [ARXJ_AC[BIN1] , ; GET LOW WORD 

6161 CALL [CLARXO] ; CLEAR BIT OF ARX 

6162 AC[BIN1 ]_[ARX] ;STORE BACK 

6163 =0 READ [BRX] , SKIP DPO, ;IS S ALREADY SET? 

6164 CALL [CLRBIN] ; GO CLEAR BIN IF NOT 

6165 [ AR ]_[ AR ] . AND . , ; CLEAR FLAGS FROM LENGTH 

6166 • 0/000777, HOLD RIGHT, ; .. 

6167 B DISP ;SEE IF OFFSET OR TRANSLATE 

6168 =1110 

6169 DBIN1: STATE_[ CVTDB ] , J/DBIN2 ; TRANSLATE -- LEAVE S ALONE 

6170 [BRX]_[BRX] .OR.0, ; OFFSET- -FORCE S TO 1 

6171 0/400000, HOLD RIGHT, 

6172 J/DBIN1 

6173 DBIN2: W0RK[ SLEN]__. NOT . [ AR ] ;STORE -SLEN-1 
6174 

6175 ; HERE IS THE MAIN LOOP 

6176 =0*0 

6177 DBINLP: [ AR ]_WORK[ SLEN]+ 1 , CALL [SRCMOD] ; (0) GET MODIFIED SRC BYTE 

6178 TL [BRX], 0/100000, ;(1) DONE, IS M SET? 

6179 U/DBXIT 

6180 [AR]_.NOT.WORK[SLEN] , ;(4) ABORT 

6181 J/DBABT ; 

6182 [AR]-0, 0/10., ;(5) NORMAL- -SEE IF 0-9 

6183 4T, SKIP DP18 ; . . 

6184 =0 [AR]_.N0T.W0RK[SLEN] , ;DIGLT TOO BIG 

6185 J/DBABT ; GO ABORT CVT 
6186 



T 1 OK I . MCR [ 1 O , 1 1 4 1 ] 11:45 11-AUG-1984 

EXTEND. MIC[ 10, 1141] 11:35 26-JULY-1984 



MICRO 



U 2111, 1030,3771 ,0005, 1276,6007,0622,0000,0000, 1443 



U 1030, 0560,3771,0004,1276,6007,0701,0010,0000,1444 

U 1031 , 3234,3771 ,0005, 1276,6007,0701 ,0000,0000, 1444 
U 1032, 0460,4443,0000,4174,4007,0700,0000,0000,0000 



U 3234, 21 12,4553,0500,4374,4007,0321 ,0000,0076,0000 

U 2 1 1 2 , 1 030 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2113, 3235,3775,0005,1276,6007,0701,0000,0000,1444 

U 3235, 21 14,3445,0505, 1 1 74 , 4007 , 0700 , 0000 , 0000 , 1444 

U 2114, 3567,0551 ,0505, 1274,4007,0700,0010,0000, 1444 

U 2115, 0460,0113,0305,1174,4007,0701,0400,0000,1444 
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EXTEND -- DECIMAL TO BINARY CONVERSION 

6187 ; HERE TO ADD IN A DIGIT/ 

6188 [BR]_AC[BINO] , 4T , ; GET HIGH BINARY 

6189 SKIP AD.EQ.O ;SEE IF SMALL 

6190 =00 

6191 DBSLO: [ ARX]_AC[BIN1 ] , ; TOO BIG 

6192 CALL [DBSLOW] ; GO USE DOUBLE PRECISION PATHS 

6193 [BR]_AC[BIN1 ] , ; GET LOW WORD 

6194 U/DBFAST ; MIGHT FIT IN 1 WORD 

6195 J/DBINLP ; RETURN FROM DBSLOW 

6196 ;G0 DO NEXT DIGIT 

6197 = 

619S DBFAST: TL [BR], #/760000 ;WILL RESULT FIT IN 36 BITS? 

6199 =0 J/DBSLO ; MAY NOT FIT- -USE DOUBLE WORD 

6200 [BR]_AC[BIN1 ]*2 ;COMPUTE AC*2 

6201 [BR]_[BR]*2, AC[BIN1] .-COMPUTE AC*4 

6202 =0 [BR]_[BR]+AC[BIN1 ] , 2T, ;C0MPUTE AC*5 

6203 CALL [ SBRL 3 ; COMPUTE AC* 10 

6204 AC[BIN13_[AR3+[BR], 3T, ;NEW BINARY RESULT 
.6205 d/DBINLP ; DO NEXT DIGIT 
6206 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



U 0560, 0620,3771,0005,1276,6007,0701,0010,0000,1443 



U 0561, 2116,0551,0404,1274,4007,0562,0010,0000,1444 
U 0565, 0600,0551,0505,1274,4007,0701,0000,0000,1443 

U 0600, 0621,4443,0000,4174,4007,0700,0010,0000,0000 



U 0601 , 21 16,01 1 1 ,0304,4174,4007,0561 ,0010,0000,0000 
U 0605, 3236,3440,0404,1174,4007,0700,0400,0000,1444 



U 3236, 0002,3440,0505,1174,4004,1700,0400,0000,1443 



U 0620, 0621,4443,0000,4174,4007,0700,0010,0000,0000 
U 0621, 0622,0111,0505,4174,4007,0700,0000,0000,0000 



U 0622, 21 16,01 1 1 ,0404,4174,4007,0561 ,0010,0000,0000 
U 0626, 0001,4443,0000,4174,4004,1700,0000,0000,0000 



U 2116, 0004,4443,0000,4174,4004,1700,0000,0000,0000 
U 2117, 3237,4551 ,0404,4374,0007,0700,0000,0037,7777 

U 3237, 0004,0111,0705,4174,4004,1700,0000,0000,0000 



MICRO 31(254) 



6207 
6208 
6209 
6210 
6211 
6212 
6213 
6214 
6215 
6216 
6217 
6218 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 
6228 
6229 
6230 
6231 
6232 
6233 
6234 
6235 
6236 
6237 
6238 
6239 
6240 
6241 
6242 
6243 
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; HERE IF NUMBER DOES NOT FIT IN ONE WORD 



=000 
DBSLOW: 



= 101 



[BR ]_AC[BINO] , 
CALL [MULBY4] 
[ARX]_[ARX]+AC[BIN1 ] , 
SKIP CRY 1 , 4T, 
CALL [ADDCRY] 
[BR]_[BR]+AC[BINO] 



=000 



= 101 



CALL [DBLDBL ] 
[ARX]_[ARX]+[AR] , 
SKIP CRY 1 , 
CALL [ADDCRY] 
AC[BIN1 ]_[ARX] 

AC[BINO]_[BR] , 
RETURN [2] 



; HERE TO DOUBLE BR ! ARX 
=000 

MULBY4: CALL [DBLDBL] 
DBLDBL: [BR]_[BR]+[BR] 

[ARX]_[ARX]+[ARX] , 
SKIP CRY 1 , 3T, 
CALL [ADDCRY] 
=110 RETURN [1] 



; HERE TO ADD THE CARRY 
=0 

ADDCRY: RETURN [4] 

CLEAR [ARX]0 
[BR]_[BR]+1 , 
RETURN [4] 



3T, 



FETCH HIGH WORD 
MULTIPLY BY 4 
COMPUTE VALUE * 5 
SEE IF OVERFLOW 
GO ADD CARRY 
ADD IN HIGH WORD 

MAKE * 10 
ADD IN NEW DIGIT 
SEE IF OVERFLOW 
ADD IN THE CARRY 
PUT BACK ANSWER 



;G0 DO NEXT BYTE 



DOUBLE TWICE 

DOUBLE HIGH WORD FIRST 

(SO WE DON'T DOUBLE CARRY) 

DOUBLE LOW WORD 

SEE IF CARRY 

ADD IN CARRY 

ALL DONE 



NO CARRY 

KEEP LOW WORD POSITIVE 
ADD CARRY 
ALL DONE 



T10KI .MCR[ 10, 1 141 ] 11:45 1 1 -AUG- 1984 
EXTEND .MIC[10,1141] 11:35 26-JULY-1984 



MICRO 



U 3240 , 3241,3111, 0306 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 3241, 2121,1111,0701,4170,4007,0700,4000,0000,0000 



U 2120, 3244,3771,0004,1276,6007,0701,0000,0000,1444 
U 2121 , 3242,3771 , 0003 , 1276,6007,0701 ,0000,0000, 1444 

U 3242, 2122,3771,0005,1276,6007,0522,0000,0000,1443 

U 2122, 3243,4551 , 0303 , 4374 , 0007 , 0700 , 0000 , 0037 , 7777 

U 2123, 3243,3551,0303,4374,0007,0700,0000,0040,0000 

U 3243, 2124,3440,0303,1174,4007,0700,0400,0000,1444 

U 2124, 2132,3770,0606,0174,4007,0520,0410,0000,0000 
U 2125, 0372,4221,0013,4170,4007,0700,0000,0000,0000 

U 3244, 3245,4551,0404,4374,0007,0700,0000,0037,7777 

U 3245, 2126,2441,0404,1174,4007,0621,4000,0000,1443 
U 2126, 2131,7771,0003,1274,4007,0700,0000,0000,1443 

U 2127, 2130,1771,0003,1274,4007,0621,4000,0000,1443 
U 2130, 2131,4571 , 1204,4374,4007,0700,0000,0040,0000 

U 2131 , 3246,3440,0303, 1 1 74 , 4007 , 0700 , 0400 , 0000 , 1443 
U 3246, 2121,3440,0404,1174,4007,0700,0400,0000,1444 



U 2132, 3247,4223,0000,1174,4007,0700,0400,0000,1443 
U 2133, 0001,4443,0000,4174,4004,1700,0000,0000,0000 
U 3247, 0001,4223,0000,1174,4004,1700,0400,0000,1444 



254) 
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6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 



; HERE TO ABORT CONVERSION 
DBABT: [BRX]_[BRX] . OR . [AR] 

[PC]_[PC]-1 , HOLD LEFT, 

J/DBDONE 



; HERE 
=0 

DBXIT 



AT END 



4T, 



[ARX]_AC[BIN1 ] 
U/DBNEG 
DBDONE : [ AR ]_AC [ B I N 1 ] 
[BR]_AC[BINO] , 
SKIP DPO 
=0 CLEAR [ARJO, J/DBDN1 

[ AR ]_[ AR ] . OR . # , #/400000 
AC[BIN1 ]_[AR] 
AC_[BRX] TEST, ; RETURN I 
SKIP DPO, CALL [CLRBIN] 
END STATE, J/SKIP 



DBDN1 : 
=0 

ENDSKP: 



DBNEG: CLEAR ARXO 

[ARX]_-[ARX] , 3T, 
SKIP AD.EO.O, AC[BINO] 

=0 [AR]__.N0T .AC[BINO] , 2T , 

[AR]_-AC[BINO] , 3T, 
SKIP AD.EO.O 

=0 [ARX]_[400000] XWD O 

STAC34: AC[BINO] [ AR ] 



PUT BACK UNUSED LENGTH 

DO NOT SKIP 

GO FIX UP SIGN COPY 



GET LOW WORD 
GO NEGATE 
FETCH LOW WORD 
GET HIGH WORD 
WHAT SIGN 
POSITIVE 

HOLD RIGHT 
STORE AC BACK 
LAGS 

CLEAR BIN IS S=0 
NO- -ALL DONE 

CLEAR EXTRA SIGN BIT 
NEGATE AND SEE IF 
ANY CARRY 
J/STAC34 ;N0 CARRY 
CARRY 

SEE IF ALL ZERO 
MAKE COPY OF SIGN 

UNLESS HIGH WORD IS ZERO 
PUT BACK ANSWER 



AC[BIN1 3_[ARX] , U/DBDONE ; .. 

HELPER SUBROUTINE TO CLEAR AC [ B I NO ] AND AC[BIN1] IF S=0 
CALL WITH: 

READ [ BRX ] , SKIP DPO, CALL [CLRBIN] 
RETURNS 1 ALWAYS 
=0 

CLRBIN: AC[BINO]_0, J/CLRB1 

RETURN [1] 
CLRB1: AC[BIN1]_0, RETURN [1] 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



MICRO 



U 3743, 2134,3771 ,0006, 1 276 , 6007 , 035 1 , 0000 , 0000 , 1443 

U 2134, 3250,4551,0606,4374,4007,0700,0000,0077,7000 

U 2 1 35 , 3266 ,3771, 0003 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 

U 3250, 3251,3771,0004,1276,6007,0701,0000,0000,1441 

U 3251 , 2140,3771 ,0003,0276,6007,0700,2000,0071 ,0024 

U 2140, 2202,3333,0004,7174,4007,0700,0410,0000,0250 

U 2142, 2136,3333,0003,7174,4007,0520,0400,0000,0247 

U 2 1 36 , 2 146 , 422 1 , 0006 , 4 1 70, 4007 , 0700 , 0000 , 0000 , 0000 

U 2137, 2141 ,3551 ,0606,4374,0007,0700,0000,0010,0000 

U 2141, 2753,4551,0404,4374,0007,0700,0010,0037,7777 

U 2143, 2144,3770,0303,0174,4007,0520,0400,0000,0000 

U 2144, 2136,3440,0404,1.174,4007,0700,0400,0000,1441 
U 2145, 3252,0111, 0704 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3252, 2141 ,3551 ,0606,4374,0007,0700,0000,0004,0000 
U 2146, 0441,3771,0003,0276,6007,0700,0000,0000,0000 

U 2147, 2152, 355 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0020 , 0000 

U 0441, 2172,3771,0004,1276,6007,0701,0010,0000,1441 

U 0443, 2146,0111,0706,4174,4007,0630,2000,0060,0000 
U 0447, 2150,4553,0600,4374,4007,0331,0000,0077,7777 



U 2150, 2152,3551,0606,4374,0007,0700,0000,0020,0000 
U 2151, 21 52, 0111 ,0706,4174,4007,0700,0000,0000,0000 



254) 
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6283 


. TOC 


"EXTEND -- BINARY TO DEC 


6284 






6285 


3743 : 




6286 


BDEC: 


[BRX] AC [DLEN] , 


6287 




SKIP FPD 


6288 


=0 


[BRX] [BRX] .AND.#, 


6289 




#/777000, 


6290 




J/BDECO 


6291 


DOCVT: 


[AR] AC, J/DOCVT/1 


6292 


BDECO: 


t ARX] AC[1] 


6293 




[AR] AC, SC 20/ 


6294 


=0* 


W0RK[BDL] [ARX], 


6295 




CALL [CLARXO] 


6296 




WORK[BDH] [AR], 


6297 




SKIP DPO 


6298 


=0 




6299 


BDEC 1 : 


[BRX] 0, HOLD LEFT, 


6300 




J/BDEC3 


6301 




[BRX]_[BRX] . OR . , 


6302 




#/ 100000, HOLD RIGHT 


6303 


=0* 




6304 


BDEC2 : 


CLEAR ARXO, CALL [DBLNG1 


6305 




AC [AR] TEST, 


6306 




SKIP DPO 


6307 






6308 


=0 


AC[1] [ARX], J/BDEC1 


6309 




[ARX] [ARX]+1 


6310 




[BRX] [BRX].OR.#, 


631 1 




#/040000, HOLD RIGHT, 


6312 




J/BDEC2 


6313 


=0 




6314 


BDEC3: 


[AR] AC, J/BDEC4 


6315 




[BRX]_[BRX] . OR . # , 


6316 




#/ 200000, 


6317 




HOLD RIGHT, J/BDEC5 


6318 


=001 




6319 


BDEC4 : 


[ ARX]_AC[ 1 ] , 


6320 




CALL [BDSUB] 


632 1 


=01 1 


[BRX]_[BRX]+ 1 , ; NUMBER F 


6322 




STEP SC, J/BDEC3 


6323 


= 111 


TR [BRX], U/llllll 


6324 






6325 


=0 


[BRX] [BRX].OR.#, 


6326 




0/200000, HOLD RIGHT, 


6327 




J/BDEC5 


6328 




[BRX] [BRX]+1 


6329 







GET LENGTH AND FLAGS 
CONTINUE FROM INTERUPT? 
JUST KEEP THE FLAGS 

COMPUTE NEW FLAGS 
ALL SET PRIOR TO TRAP 
GET LOW BINARY 

GET HIGH WORD, SET STEP COUNT 
SAVE IN CASE OF ABORT 
MAKE SURE BIT O IS OFF 
SAVE HIGH WORD AND 
TEST SIGN 

POSITIVE, CLEAR RH OF BRX 
COMPUTE # OF DIGITS REQUIRED 
NEGATIVE, SET M 



; NEGATE AR ! ARX 
PUT BACK ANSWER 
IF STILL MINUS WE HAVE 

1B0, AND NO OTHER BITS 
POSITIVE NOW 
UUST 1B0--ADD 1 
AND REMEMBER THAT WE DID 

IN LEFT HALF OF AC+3 

NEGATE IT AGAIN 

GET HIGH AC 

NO LARGER POWER OF 10 FITS 
SET N FLAG (CLEARLY NOT 0) 
SETUP TO FILL, ETC. 

GET HIGH WORD 
SEE IF 10**C(BRX) FITS 
ITS- -TRY A LARGER ONE 
UNLESS WE ARE OUT OF NUMBERS 
ANY DIGITS REQUIRED? 

SOME DIGITS NEEDED, 

SET N FLAG 
CONTINUE BELOW 

ZERO- -FORCE AT LEAST 1 DIGIT 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
EXTEND. MI C[ 10, 1141] 11:35 26-UULY-1984 



MICRO 



U 2152, 3363,3771,0003,1276,6007,0701,0010,0000,1443 

U 2153, 3253,4221,0005,4174,4007,0700,0000,0000,0000 

U 3253 , 3254 , 344 1 , 0605 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3254, 2154, 1 1 1 1 ,0305,4174,4007,0421 ,4000,0000,0000 

U 2 1 54 , 3276 , 377 1 , 0004 , 7274 , 4007 , 070 1 , 0000 , 0000 , 0250 

U 2155, 2156,3333,0006,4174,4007,0520,0000,0000,0000 

U 2156, 2135,3440,0606,1174,4007,0700,0400,0000,1443 



U 2157, 3255,3441,0603,4174,0007,0700,0000,0000,0000 
U 3255, 3256,3440,0303,1174,4007,0700,0400,0000,1443 
U 3256, 3257,3771,0003,7274,4007,0701,0000,0000,0240 



U 3257, 3260,01 1 1 ,0703,4174,4007,0700,0200,0004,0012 

U 3260 , 326 1 , 377 1 , 00 1 6 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 3261, 3262,3771,0013,4370,4007,0700,0000,0000,0012 

U 3262, 3263,2113,0507,7174,4007,0701,4400,0000,0242 

U 3263 , 3264 ,3441,1 603 ,7174, 4007 , 0700 , OOOO , 0000 , 0242 



U # 3264, 0640,0551,0705,7274,4007,0521,0000,0000,0242 

U 0640 , 2135, 3440 , 0606 ,1174, 4007 , 0700 , 0400 , 0000 ,1443 

U 0641, 3353,3333,0005,7174,4007,0700,0410,0000,0242 

U 0647, 3265,2551,0705,1274,4007,0701,4000,0000,1443 

U 3265 , 3263 , 3440 , 0505 , 1 1 74 , 4007 , 0700 , 0400 , 0000 , 1 443 



254) 



6330 

6331 

6332 

6333 

6334 

6335 

6336 

6337 

6338 

6339 

6340 

6341 

6342 

6343 

6344 

6345 

6346 

6347 

6348 

6349 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6358 

6359 

6360 

6361 

6362 

6363 
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=0 

BDEC5: [ AR ]_AC [ DLEN] , 
CALL [CLRFLG] 
[BR]_0 

[BR]_[BRX], HOLD LEFT 
[BR]_[BR]-[AR], 
SKIP AD.LE.O 
=0 [ ARX ]_WORK [ BDL ] , 

J/BDABT 

READ [BRX ] , SKIP DPO 
=0 AC[DLEN]_[BRX] , 

J/DOCVT 



GET LENGTH 

REMOVE FLAGS FROM AR 

GET # OF DIGITS NEEDED 

NUMBER OF FILLS NEEDED 

SEE IF ENOUGH ROOM 

DOES NOT FIT IN SPACE ALLOWED 

DO NOT DO CONVERT 
IS L ALREADY SET 
NO--NO FILLERS 
GO CHURN OUT THE NUMBER 



; HERE TO STORE LEADING FILLERS 
[AR]_[BRX], HOLD RIGHT 
AC[DLEN]__[ AR ] 
[AR]__W0RK[EO] 
[AR]_[AR]+1 , LOAD VMA , 
START READ 
MEM READ, [ TO]_MEM 
STATE_[ EDIT-DST ] 
W0RK[SLEN]_[BR]-1, 3T 

BDFILL: [ARJ_[T0], WORK[ SLEN] 

[BR]_W0RK[SLEN]+1 , 3T , 

SKIP DPO 
=000 AC [DLEN ]_[BRX ] , J/DOCVT 
=001 WORK[SLEN]_[BR], 

CALL [PUTDSTJ 
=111 [BR]_AC[DLEN]-1 

AC[DLEN]_[BR] , J/BDFILL 



MAKE SURE THE FLAGS GET SET 

BEFORE WE PAGE FAIL 
ADDRESS OF FILL (-1) 
FETCH FILLER 

GET FILLER INTO AR 
PAGE FAILS BACKUP DST 
SAVE # OF FILLERS 
RESTORE FILL BYTE AND 

WARM UP RAM FILE 
MORE FILLERS NEEDED? 

ALL DONE FIX FLAGS AND CONVERT 
SAVE UPDATED LENGTH 

AND STORE FILLER 
COUNT DOWN STRING LENGTH 

KEEP FILLING 



T10KI .MCR[ 10, 1141] 
EXTEND . MIC [ 10, 1 141 ] 



1 1 :45 
1 1 :35 



1 1 -AUG- 1984 
26-JULY-1984 



MICRO 31(254) 
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U 3266, 3275,3771,0004,1276,6007,0701,0000,0000,1441 



U 0562, 
U 0566, 



U 0636, 
U 0637, 
U 0510, 
U 0516, 
3270, 
3271 , 
3272, 
2160, 
2161 , 
U 3273, 
U 3274, 
U 3275, 
U 2162, 
U 2163, 



U 2164, 
U 2165, 
U 2166, 
U 2167, 
U 2170, 
U 2171, 



2172,01 1 1 ,0705,4174,4007,0700,0010,0000,0000 
3267 , 3333 , 0003 , 7 1 74 , 4007 , 0700 , 0400 , 0000 , 0247 



U 3267, 0636,0551,0503,7274,4003,7701,0000,0000,0241 



2164, 
0510. 
3353, 
3270, 
3271 , 
3272, 
2160, 
3277, 
3273, 
3274, 
3275, 
2162, 
0562, 
0372, 



3333, 
3333, 
3771 , 
2551 , 
3771 , 
3771 . 
4553, 
0111, 
3440, 
3440, 
3440, 
1111, 
2441 , 
4221 , 



0003, 
0004, 
0013, 
0705, 
0003, 
0004, 
0500, 
0704, 
0303, 
0404, 
0505, 
0706, 
0705, 
0013, 



4174, 
7174, 
4370, 
1274, 
7274, 
7274, 
4374, 
4174, 
0174, 
1 174, 
1 174, 
4174, 
4174, 
4170, 



4007, 
4007, 
4007, 
4007, 
4007, 
4007, 
4007, 
4007, 
4007, 
4007, 
4007, 
4007, 
4467, 
4467, 



3562,4221 ,0013, 
2166,4553,0600, 
0637,4221 ,0003, 
2170,4553,0600, 
2171 ,3770,0303, 
0637,4221 ,0003, 



4170,4007 
4374,4007 
4174,0007 
4374,4007 
4344,4007 
4174,0007 



0700 
0700, 
0700, 
0701 , 
0701 , 
0701 , 
0321, 
0700, 
0700, 
0700, 
0700, 
0531 , 
0701 , 
0700, 



0700 
0331 
0700 
0321 
0700 
0700 



0200, 
0400, 
0010, 
4000, 
0000, 
0000, 
0000, 
0000, 
0400, 
0400, 
0400, 
4000, 
4000, 
0000, 



,0010, 
,0000. 
,0000, 
, 0000 , 
0000, 
0000, 



0004 
0000 
0000 
0000 
0000 
0000 
0004 
0000 
0000 
0000 
0000 
0000 
0003 
0005 



,0012 
,0250 
,0012 
, 1443 
,0247 
,0250 
,0000 
,0000 
,0000 
, 1441 
, 1443 
,0000 
,0000 
,0000 



0000. 
0077, 
0000, 
0010, 
0000, 
0000, 



0000 
7777 
0000 
OOOO 
0000 
0000 



U 3276, 1505,3771 ,0003,7274,4007,0701 ,0000,0000,0247 



U 3277, 2161,5551,0505,4374,0007,0700,0000,0004,0000 



6364 
6365 
6366 
6367 
6368 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
63,80 
6381 
6382 
6383 
6384 
6385 
6386 
6387 
6388 
6389 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
6400 
6401 
6402 
6403 
6404 
6405 
6406 
6407 



; HERE TO STORE THE ANSWER 



D0CVT1 : 

=010 
BDECLP : 

= 110 



= 1 1 10 

BDSET : 
=00* 
= 11* 



=0 

D0CVT3: 



D0CVT2: 
=0 



[ARX]_AC[ 1 ] , 
J/D0CVT2 

[BR]_[BR]+1 , 
CALL [BDSUB] 
W0RK[BDH] [AR] 



; GET LOW WORD 

; ENTER LOOP FROM BOTTOM 

;COUNT DIGITS 

; KEEP SUBTRACTING 10**C(BRX) 
;SAVE BINARY 



CALL 



; OFFSET DIGIT 
;SEE WHICH MODE 
.•TRANSLATE, START READING 
; GO GET ENTRY FROM TABLE 
;SAVE LOW BINARY 
[PUTDST] 
; UPDATE STRING LENGTH 



TABLE 



[AR]_[BR]+W0RK[E1 ] , 
B DISP 

READ [AR], LOAD VMA , 
START READ, J/BDTBL 
WORK[BDL]_[ARX] 
STATE__[ EDIT-DST ] 
[BR]_AC[DLEN]-1 
[AR]_WORK[BDH] 
[ARX]_WORK[BDL] 
TL [BR], #/040000 
[ARX]_[ARX]+1 , J/BDCFLG 
AC_[AR] 
AC[ 1 ]_[ARX] 

AC [DLEN]_[BR ] ; STORE BACK NEW STRING LENGTH 

[BRX]_[BRX]-1 , 3T, SKIP DP18 
[BR]_-1, SET FPD, 3T, J/BDECLP 
END STATE, CLR FPD, J/SKIP 



; ARE 
;YES 



WE CONVERTING 1B0? 
--FIX THE NUMBER AND 



CLEAR FLAG 



; HERE TO TRANSLATE 
=0 

BDTBL: END STATE, 



1 DIGIT 



=0 



CALL [LOADAR] 
TR [BRX], 

[AR]_0, HOLD RIGHT, 
TL [BRX], tf/100000 
[ AR ]_[ AR ] SWAP 
[AR]_0, HOLD RIGHT, 



;DON'T CHANGE BYTE POINTER 

; THIS PAGE FAILS 

;G0 PUT WORD IN AR 

; LAST DIGIT 
J/BDSET 

; AND NEGATIVE 

; LAST AND MINUS, USE LH 
J/BDSET 



IF 



BDABT: [ AR ]_WORK[BDH] , J/DAC 

BDCFLG: [BR]_[BR] . AND . NOT . # , 
#/040000, HOLD RIGHT, 
J/D0CVT3 



CLEAR FLAG THAT TELLS US 
TO SUBTRACT 1 AND 
CONTINUE CONVERTING 



T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 
EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



MICRO 



U 2172, 
U 2173, 



2 1 74 , 055 1 , 06 1 6 , 4374 , 4007 , 070 1 , 0000 , 0000 , 0344 
2565 , 4443 , 0000 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 



U 2174, 2202,3441,1617,4174,4007,0700,0210,0000,0010 

U 2176, 2200,1551,0404,6274,4007,0561,4000,0000,0000 

U 2200, 2201,1111,0703,4174,4007,0700,4000,0000,0000 

U 2201 , 3300,0551 ,0616,4374,4007,0701 ,0000,0000,0373 

U 3300, 3301,3333,0016,4174,4007,0700,0200,0000,0010 

U 3301, 2202,1551,0303,6274,4007,0522,4000,0000,0000 



U 2202, 0002,4551,0404,4374,0004,1700,0000,0037,7777 

U 2203, 3302,0551,0303,6274,4007,0700,0000,0000,0000 

U 3302, 3303,3333,0017,4174,4007,0700,0200,0000,0010 

U 3303, 2204,0551,0404,6274,4007,0561,0000,0000,0000 



U 2204, 0006,4551,0404,4374,0004,1700,0000,0037,7777 



U 2205, 2204,0111,0703,4174,4007,0700,0000,0000,0000 



1(254) KS10 MICROCODE V124, 27-JUL-84 Page 175 
EXTEND BINARY TO DECIMAL CONVERSION 



6408 ; SUBROUTINE TO SUBRTACT A POWER OF 10 FROM ARIARX 

6409 ; CALL WITH : 

6410 ; AR ! ARX/ NUMBER TO BE CONVERTED 

6411 ; BRX( RIGHT )/ POWER OF 10 

6412 ; RETURNS: 

6413 ; 2 RESULT IS STILL POSITIVE 

6414 ; 6 RESULT WOULD HAVE BEEN NEGATIVE (RESTORE DONE) 

6415 =0 

6416 BDSUB: [ T0]__[ BRX j +# , 3T, WORK/DECLO, ; ADDRESS OF LOW WORD 

6417 d/BPSUB 1 ;N0 INTERRUPT 

6418 J/FIXPC INTERRUPT 

6419 =0* 

6420 BDSUB 1: [T1]_[T0], LOAD VMA , ; PUT IN VMA , 

6421 CALL [CLARXO] ;FIX UP SIGN OF LOW WORD 

6422 [ARX]_[ARX]-RAM, 3T, ; SUBTRACT 

6423 SKIP CRY 1 ; SEE IF OVERFLOW 

6424 =0 [AR]_[AR]-1 ;PROCESS CARRY 

6425 [TO]_[BRX]+#, 3T , WORK/DECHI ; ADDRESS OF HIGH WORD 

6426 READ [TO], LOAD VMA ; PLACE IN VMA 

6427 [AR]__[AR]-RAM, 4T , ; SUBTRACT 

6428 SKIP DPO ;SEE IF IT FIT 

6429 =0 

6430 CLARXO: CLEAR ARXO, ;IT FIT, KEEP LOW WORD + 

6431 RETURN [2] ; AND RETURN 

6432 [ AR ]_[ AR J+RAM ; RESTORE 

6433 READ [T1], LOAD VMA 

6434 [4RX]_JARX]+RAM, 3T , SKIP CRY 1 

6435 =0 • 

6436 BDSUB2: CLEAR ARXO, ; KEEP LOW WORD + 

6437 RETURN [6] ; RETURN OVERFLOW 

6438 [ARJ_[AR]+1 , ' ; ADD BACK THE CARRY 

6439 J/BDSUB2 ; COMPLETE SUBTRACT 
6440 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

EXTEND. MIC[ 10, 1141] 11:35 26- JULY- 1 984 



MICRO 



U 3741, 3361,0111,0703,4170,4007,0700,0210,0004,0012 

U 3751 , 2210,3771 ,0006,0276,6007,0700,0000,0000,0000 

U 2210, 3556 , 4553 , 0600 , 4374 , 4007 , 032 1 , 0010 , 0004 , 7777 

U 2214, 3304 , 3443 , 0600 ,4174, 4007 , 0700, 0200 , 0004 , 00 1 2 

U 3304 , 3305 , 422 1 , 00 1 3 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3305 , 2206 , 3770 , 0605 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 

U 2 206 , 3562,0115, 0505 ,4174, 4007 , 0700 , 00 1 , 0000 , 0000 

U 2207, 0654,3333,0005,4174,4003,1701,0000,0000,0000 

U 0654 , 22 1 2 , 3770 , 0303 , 4344 , 4007 , 0700 , 2000 , 007 1 , 0007 

U '0655, 2213,3770,0303,4344,4007,0700,0000,0000,0000 

U 0656 , 2212, 3447 , 0303 ,4174, 4007 , 0700 , 2000 , 007 1 , 0006 

U 0657, 3306,4551,0303,4374,4007,0700,0000,0000,0777 



U 2212, 2212,3447, 0303 ,4174, 4007 , 06 30 , 2000 , 0060 , 0000 
U 2213, 3306 , 455 1 , 0303 , 4374 , 4007 , 0700 , 0000 , 0000 ,0777 
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6441 .TOC "EXTEND -- EDIT -- MAIN LOOP" 
6442 

6443 ; HERE FOR EDIT INSTRUCTION 

6444 ; CALL WITH: 

6445 ; AR/ EO ADDRESS OF FILL, FLOAT, AND MESSAGE TABLE 

6446 ; BR/ E1 TRANSLATE TABLE 

6447 ; 

6448 3741: 

6449 EDIT: VMA_[AR]+1, START READ, ;FIRST GET FILL BYTE 

6450 CALL [GTFILL] ; GO GET IT 

6451 3751: [BRX]_AC ; GET PATTERN POINTER 

6452 =0** TL [BRX], #/047777, ; MAKE SURE SECTION 

6453 CALL [BITCHK ] ; . . 

6454 EDITLP: VMA_[BRX] , START READ ; FETCH PATTERN WORD 

6455 END STATE ;N0 SPECIAL PAGE FAIL ACTION 

6456 [BR]_[BRX] SWAP ; GET PBN IN BITS 20 & 21 

6457 =0 [BR]_[BR]*4, ; .. 

6458 CALL [LOADAR] ; GET PATTERN WORD 

6459 READ [BR], 3T , DISP/DP LEFT 

6460 =1100 

6461 [AR]_[ AR] SWAP, SCJ7 , J/MOVPAT ; (O) BITS 0-8 

6462 [AR]_[AR] SWAP, J/MSKPAT ;(1) BITS 9-17 

6463 [AR]_[AR]*.5, SC_6 , J/MOVPAT ; (2) BITS 18-27 

6464 [AR]_[AR] . AND . # , #/777, J/EDISP ;(3) BITS 28-35 

6465 =0 

6466 MOVPAT: [ AR ]_[ AR ] * . 5 , STEP SC , J/MOVPAT ;SHIFT OVER 

6467 MSKPAT: [AR]_[AR] . AND . # , #/777 
6468 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
; EXTEND. MIC[ 10, 1141] 1 1 : 35 26- JULY- 1984 

U 3306, 2216,3447,0305,4174,4007,0700,2000,0071,0002 

U 2216, 2216, 3447 , 0505 , 4 1 74 , 4007 , 0630 , 2000 , 0060, 0000 
U 2217, 0661,3333,0005,4174,4003,5701,0000,0000,0000 

U 0661 , 2220, 1553,0300,4374,4007,0532,4000,0000,0005 

U 0663 , 2232,3333, 0006 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 0665, 3326,4443,0000,4174,4007,0700,0000,0000,0000 

U 0667, 3326,4443,0000,4174,4007,0700,0000,0000,0000 

U 0671, 3326,4443,0000,4174,4007,0700,0000,0000,0000 

U 0673 , 2236 , 4553 , 0600 , 4374 , 4007 , 032 1 , 0000 , 00 1 O , 0000 

U 0675, 2236,4553,0600,4374,4007,0321 ,0000,0020,0000 
U 0677, 2236,4443,0000,4174,4007,0700,0000,0000,0000 



U 2220, 3326,4443,0000,4174,4007,0700,0000,0000,0000 

U 2221, 0710,3333,0003,4174,4003,5701,0000,0000,0000 

U 0710, 3307,0111,0701,4174,4007,0700,0000,0000,0000* 

U 0711, 2175,3771,0013,4370,4007,0700,0000,0000,0011 

U 0712, 0246,3333,0006,4174,4007,0520,0000,0000,0000 



U 07 1 3 , 3326 , 455 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0007 ,7777 
U 0714, 0715,3771,0005,1276,6007,0701,0000,0000,1443 

U 0715, 2224,3443,0500,4174,4007,0700,0200,0004,0012 



31(254) 



6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6478 

6479 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

651 1 

6512 

6513 
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;HERE WITH PATTERN BYTE RIGHT ADJUSTED IN AR 
EDISP: [BR]_[AR]*.5, SC_2 ;SHIFT OVER 

=0 

EDISP 1 : [BR]_[BR]*.5, STEP SC , J/EDISP 1 
=0001 



READ [BR], 3T, DISP/DP 

[ARj-#, #/5, 4T, 
SKIP DP18, J/EDOPR 

READ [BRX] , SKIP DPO, 
J/EDMSG 

J/EDNOP 

J/EDNOP 

J/EDNOP 



TL [BRX], 
J/EDSKP 



#7100000, 



TL [BRX], #/200000, 
J/EDSKP 



;L00K AT HIGH 3 BITS 
; (O) OPERATE GROUP 
; SEE IF 0-4 

; ( 1 ) MESSAGE BYTE 



(2) UNDEFINED 

(3) UNDEFINED 

(4) UNDEFINED 

(5) SKIP IF M SET 

; (6) SKIP IF N SET 
;(7) SKIP ALWAYS 



.TOC 



J/EDSKP 

"EXTEND -- EDIT -- DECODE OPERATE GROUP" 



; HERE FOR OPERATE GROUP. SKIP IF IN RANGE 
=0 



EDOPR: J/EDNOP 

READ [AR], 3T, DISP/DP 
=1000 [PC]_[PC]+1, J/EDSTOP 

STATE_[ EDIT -SRC] , 

J/EDSEL 

READ [BRX] , SKIP DPO, 
J/EDSSIG 

[BRX]_[BRX] . AND. #, 

#/77777, HOLD RIGHT, 

J/EDNOP 

[BR ]_AC [MARK ] 

VMA__[BR ] , START READ, 

J/EDEXMD 



;OUT OF RANGE 

;DISPATCH ON TYPE 

; (O) -STOP EDIT 

;(1) SELECT SOURCE BYTE 

;(2) START SIGNIFICANCE 

; (3) FIELD SEPERATOR 

;(4) EXCHANGE MARK AND DE 



o 

; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



U 3307, 3310,7441 ,0605,4174,4007,0700, 1000,0071 ,0010 

U 3310, 331 1 , 3441 ,0603,4174,4007,0701 , 1000,0043,0000 

U 3311, 2222,4553,0500,4374,4007,0321,0000,0003,0000 

U2222, 1515, 3770, 0303 , 4334 , 40 1 7 , 0700 , 0000 , 004 1 , 0000 

U 2223, 2222,01 1 1 ,0703,4174,4007,0700, 1000,0051 ,0700 



U0246, 3315,4443, 0000 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 
U 0247, 3326,4443,0000,4174,4007,0700,0000,0000,0000 



U 2224, 3562,3772,0000, 1275,5007,0701 ,0010,0000, 1444 

U 2225 , 3312, 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0003 , 0002 

U 3312, 3313, 3223 , 0000 ,4174, 4007 , 070 1 , 0200 , 0000 , 0002 

U 3313, 3326,3440,0303, 1 174,4007,0700,0400,0000, 1444 
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EXTEND -- EDIT STOP EDIT 

6514 .TOC "EXTEND EDIT STOP EDIT" 
6515 

6516 ; HERE TO END AN EDIT OPERATION. PC IS SET TO SKIP IF NORMAL END 

6517 ; OR NON-SKIP IF ABORT 

6518 EDSTOP: [BR ]_. NOT . [BRX] , ; AD WILL NOT DO D . AND . NOT . A 

6519 FE_S#, S#/10 ; PRESET FE 

6520 [AR]_[BRX], 3T , FE_FE+P ;MOVE POINTER, UPBATE PBN 

6521 [BR ] . AND . # , 3T , ;WAS OLD NUMBER 3? 

6522 #/030000, SKIP ADL.EQ.O ; 

6523 =0 

6524 EDSTP1: [AR]_P, J/STAC ;NO--ALL DONE 

6525 [AR]_[AR]+1, ;YES--BUMP WORD U 

6526 FE_FE . AND . S# , S#/0700, ; KEEP ONLY FLAG BITS 

6527 J/EDSTP 1 ; GO STOP EDIT 
6528 

6529 .TOC "EXTEND EDIT -- START SIGNIFICANCE" 
6530 

6531 ; HERE WITH DST POINTER IN AR 

6532 =110 

6533 EDSSIG: CALL [EDFLT] ;STORE FLT CHAR 

6534 J/EDNOP ;D0 NEXT PATTERN BYTE 
6535 

6536 .TOC "EXTEND EDIT -- EXCHANGE MARK AND DESTINATION" 
6537 

6538 ; HERE WITH ADDRESS OF MARK POINTER IN BR 

6539 =0 

6540 EDEXMD: Q_AC[DSTP], ; GET DEST POINTER 

6541 CALL [LOADAR] ; GO PUT MARK IN AR 

6542 START WRITE ; START WRITE. SEPERATE STEP TO AVOID 

6543 ; PROBLEM ON DPM5 

6544 MEM WRITE, MEM_0 ; PUT OLD DEST IN MARK 

6545 AC[DSTP]_[AR] , d/EDNOP ; PUT BACK DEST POINTER 
6546 



/ 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
EXTEND . MIC [ 10, 1141] 11:35 26-JULY-1984 



MICRO 31(254) 



KS10 MICROCODE V124, 27-UUL-84 Page 179 
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U 2175, 2257,3771,0003,1276,6007,0701,0010,0000,1441 
U 2177, 0700,3447,0303,7174,4007,0700,0000,0000,0241 

U 0700, 3346,0551,0303,7274,4007,0700,0010,0000,0241 



U 0702, 2226,3333,0003,4174,4007,0621,0000,0000,0000 

U 0703, 0606,3771,0013,4370,4007,0700,0000,0000,0011 
U 0704, 3307,4443,0000,4174,4007,0700,0000,0000,0000 



U 0705, 3353,3771,0013,4370,4007,0700,0010,0000,0013 
U 0707 , 3326 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 2226, 0705,4443,0000,4174,4007,0700,0000,0000,0000 
U 2227, 3326,4443,0000,4174,4007,0700,0000,0000,0000 



U 0606, 3315,3333,0004,7174,4007,0700,0410,0000,0246 
U 0607, 3314,3771,00O3,7274,4007,07O1,OO00,0000,0246 



U 3314, 0705,4251,0303,4374,4007,0700,0000,0007,7777 



6547 
6548 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6556 
6557 
6558 
6559 
6560 
6561 
6562 
6563 
6564 
6565 
6566 
6567 
6568 
6569 
6570 
6571 
6572 
6573 
6574 
6575 
6576 
6577 
6578 
6579 
6580 
6581 

6582 



.TOC 
=0* 

EDSEL: 



=000 

=010 
EDFILL: 



= 100 
= 101 
EDSPUT: 

= 111 



•EXTEND 



EDIT PROCESS SOURCE BYTE" 



[AR]_AC[SRCP] , 
CALL [GETSRC] 
[AR]_[ARJ*.5, W0RK[E1] 
[AR]_[AR]+W0RK[E1 ] , 
2T, CALL [TRNAR] 

READ [AR], 
SKIP AD.EQ.O, 
J/EDFIL1 

STATE_[ EDIT-SRC ] , 

J/EDSFLT 

J/EDSTOP 

STATE_[ EDIT-S+D ] , 
CALL [PUTDST] 

d/EDNOP 



; HERE TO COMPLETE STORING FILL 
=0 

EDFIL1: J/EDSPUT 
d/EDNOP 

; HERE TO DO FLOAT BYTE 
= 110 

EDSFLT: W0RK[ FSIG]_[ARX] , 
CALL [EDFLT] 
[AR]_W0RK[FSIG] 
[ AR ]_[ AR ] . AND . # CLR LH 9 
#/77777, 
J/EDSPUT 



;PICK UP SRC POINTER 

; GET SOURCE BYTE 

; PREPARE TO TRANSLATE 

;G0 TRANSLATE BY HALFWORDS 



;(2) NO SIGNIFICANCE, GO FILL 

; SEE IF ANY FILLER 

; GO TO IT 

;(3) SIG START, DO FLOAT CHAR 

;(4) ABORT 

(5) NORMAL, STORE AT DST 



;(7) BYTE STORED 



; STORE FILLER 

;N0 FILLER TO STORE 



SAVE SIG CHAR 
STORE FLOAT CHAR 
RESTORE CHAR 

UUST KEEP THE BYTE IN CASE 

DEST BYTE . GT . 15 BITS 
GO STORE CHAR WHICH STARTED THIS AL 



o 

; T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 
; EXT END. MI C[ 10, 1141] 1 1 : 35 26-dULY- 1984 



U 3315, 3316,3771,0005,1276,6007,0701,0000,0000,1443 

U 3316, 3317,3443, 0500 ,4174, 4007 , 0700 , 0200 , 0003 , 00 1 2 

U 3317, 3320,3771 ,0005, 1276,6007,0701 ,0000,0000, 1444 

U 3320, 2230, 3333, 0005 ,4175, 5007 , 0701 , 0200 , 0000 , 0002 

U 2230, 3322,4751 , 1203,4374,4007,0700,0010,0000,0002 

U 2231, 0740,3771,0003,4365,5007,0621,0200,0000,0002 



U 0740, 3353,3551 , 1313,4370,4007,0700,0010,0000,0012 
U 0741, 3321,3551,0606,4374,0007,0700,0000,0040,0000 
U 0746, 3321 ,3551 ,0§06,4374,0007,0700,0000,0040,0000 



U 3321 , 0007,3440,0606,01.74,4004, 1700,0400,0000,0000 



U 2232, 0760,3771,0003,7274,4007,0622,0000,0000,0244 

U 2233 , 2234 , 425 1 , 0303 , 4374 , 4007 , 0700 , 0000 , 0000 , 0077 

U 2234, 3322,0111,0703,7174,4007,0700,0010,0000,0240 

U 2235, 0760,3771,0003,4365,5007,0700,0200,0000,0002 



U 0760, 3353,3771,0013,4370,4007,0700,0010,0000,0012 
U 076 1 , 3326 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 0766 , 3326 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3322, 



U 3323, 



3323 , 055 1 , 0303 , 7274 , 4007 , 070 1 , 0000 , 0000 , 0240 
OOO 1,3443, 0300 ,4174, 4004 , 1 700 , 0200 , 0004 , 00 1 2 



254) 



6583 
6584 
6585 
6586 
6587 
6588 
6589 
6590 
6591 
6592 
6593 
6594 
6595 
6596 
6597 
6598 
6599 
6600 
6601 
6602 
6603 
6604 
6605 
6606 
6607 
6608 
6609 
6610 
661 1 
6612 
6613 
6614 
6615 
6616 
6617 
6618 
6619 
6620 
6621 
6622 
6623 
6624 
6625 
6626 
6627 
6628 
6629 
6630 
6631 
6632 
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EXTEND EDIT PROCESS SOURCE BYTE 

SUBRUTINE TO PROCESS FLOAT CHAR 
CALL WITH: 

AR/ POINTER TO STORE * MARK 
RETURN 7 WITH FLOAT STORED 
EDFLT: [ BR ]_AC [ MARK ] 

VMA_[BR], START WRITE 

[BR]J\C[DSTP] 

MEM WRITE, MEM_[BR] 
=0 [AR]_0 XWD [2] , 

CALL [EDBYTE] 

MEM READ, [ AR]__MEM, 

SKIP AD.EO-0 



ADDRESS OF MARK POINTER 
READY TO STORE 
GET DST POINTER 
STORE POINTER 
FETCH FLOAT CHAR 
GET TBL BYTE 
GET FLOAT CHAR 
SEE IF NULL 



=000 



=001 



= 110 



[ FLG]_[ FLG] . OR . # , 
STATE/ ED IT -DST , 
HOLD LEFT, 
CALL [PUTDST] 
[BRX] [BRX].OR.#, 



; REMEMBER TO BACKUP DST POINTER 
WILL ALSO BACKUP SRC IF CALLED 
FROM SELECT 
STORE FLOAT 
ft/ 400000, 



HOLD RIGHT, J/EDFLT 1 ; NULL 
[BRX]_[BRX] .0R.#, 0/400000, 
HOLD RIGHT, J/EDFLT 1 ; MARK STORED 



EDFLT 1 : AC [BRX], 



.TOC 



RETURN [7] 



"EXTEND 



SAVE FLAGS SO WE DON'T 
TRY TO DO THIS AGAIN IF 
NEXT STORE PAGE FAILS 
AND RETURN 



EDIT 



MESSAGE BYTE' 



; HERE WITH SKIP ON S 
=0 

EDMSG: [ AR ]_WORK [ F I LL ] , 
SKIP AD.EO.O, 4T, 
J/EDMSG1 

[AR]_[AR] . AND . # CLR LH, 

#/77 

=0 [AR]_[AR]+1, WORK[EO], 

CALL [EDBYTE] 
MEM READ, [AR] MEM 



=000 
EDMSG1 : 

=001 
= 110 



STATE_J EDIT-DST ] , 
CALL [PUTDST] 
J/EDNOP 
J/EDNOP 



EDBYTE : [ AR ]_[ AR ] +WORK [ EO] 

VMA_[AR], START READ, 
RETURN [1] 



GET FILL BYTE 
SEE IF NULL 
GO STORE 

GET OFFSET INTO TABLE 
PLUS 1 

GET TBL BYTE 
FROM MEMORY 

WHAT- TO. DO ON PAGE FAILS 
STORE MESSAGE BYTE 
NULL FILLER 
NEXT BYTE 



GET OFFSET INTO TABLE 
START MEMORY CYCLE 
RETURN TO CALLER 



T10KI.MCR[10, 1141] 
EXTEND. MIC[ 10, 1141] 



11:45 1 1 -AUG- 1984 
1 1 :35 26-JULY-1984 



MICRO 



U 2236, 3324,4551,0303,4374,4007,0700,0000,0000,0077 

U 2237 , 3326 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 3324, 3325,0115,0703,4174,4007,0700,0000,0000,0000 



U 3325 , 3327 , 3333 , 0003 , 4 1 74 , 4007 , 070 1 , 2000 , 0007 , 0000 



3330 , 3333 , 0006 ,4174, 4007 , 070 1 , 1000 , 0073 , 0000 
3331 ,4443,0000,4174,4007,0700, 1000 , 005 1 , 0030 
3332 , 4443 , 0000 ,4174, 4007 , 0700 , 1 000 , 0040 , 0000 
3333,4443, 0000 , 4 1 74 , 4007 , 0700 , 1 000 , 004 1 , 00 1 

3334 , 3777 , 0003 , 4334 , 4057 , 0700 , 2000 , 004 1 , 0000 



O 
I 

o 

OL 


u 
u 
u 
u 
u 


3326, 
3327, 
3330, 
3331 , 
3332, 




u 


3333, 


| 






Electronic 


u 


3334, 


i Services 


u 


2240, 


Advanced Informatioi 


u 


2241 , 


u 


2242, 


Produced on . 


u 
u 


2243, 
3335, 




u 


3336, 




u 


3337, 




u 
u 


3340, 
3341 , 
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6633 .TOC "EXTEND EDIT -- SKIP" 
6634 

6635 =0 

6636 ; HERE TO SKIP ALWAYS 

6637 EDSKP : [ AR ]_[ AR ] . AND . # , #/77, ; JUST KEEP SKIP DISTANCE 

6638 J/EDSKP 1 ; CONTINUE BELOW 

6639 ; HERE IF WE DO NOT WANT TO SKIP 

6640 J/EDNOP 

6641 EDSKP 1 : [ AR]_( [ AR]+ 1 )*2 ;GIVE 1 EXTRA SKIP 

6642 READ [AR], SCAD/A*2, ; PUT THE ADJUSTMENT 

6643 SCADA/BYTE5, 3T , LOAD SC , ; THE SC 

6644 J/EDNOP 1 ;J0IN MAIN LOOP 
6645 

6646 

6647 .TOC "EXTEND -- EDIT -- ADVANCE PATTERN POINTER" 
6648 

6649 EDNOP: SC_0 ;N0 SKIP 

6650 EDNOP 1 : READ [BRX], 3T , FE_P ; PUT PBN IN FE 

6651 FE FE . AND . S# , S#/30 ;JUST BYTE # 

6652 .FE_FE+SC ; ADD IN ANY SKIP DISTANCE 

6653 FE FE+S#, S#/10 ; BUMP PBN 

6654 CAR] FE, ; GET NUMBER OF WORDS 

6655 L0AD~SC ; PUT MSB WHERE IT CAN BE TESTED 

6656 ; QUICKLY 

6657 [ AR ]_[ AR] . AND . # CLR LH, ; KEEP ONLY 1 COPY 

6658 #/170, SKIP/SC ; .- 

6659 =0 

6660 EDN1A: [AR] [AR]*.5, SC_0, 

6661 J/EDN0P2 ;READY TO SHIFT OFF BYTE WITHIN 

6662 ; WORD 

6663 [ AR ]_[ AR ] . OR . # , #/200, *, GET THE SIGN BIT OF THE FE 

6664 HOLD LEFT, ; INTO THE AR . ONLY HAPPENS ON 

6665 J/EDN1A ; SKP 76 OR SKP 77 

6666 =0 

6667 EDN0P2: [ AR ]_[ AR ] * . 5 , STEP SC , J/EDN0P2 

6668 [BRX]_[BRX]+[AR] , ; UPDATE WORD ADDRESS 

6669 HOLD LEFT 

6670 [AR]_P ;PUT PBN BACK IN BRX 

6671 [BRX]_[BRX] .AND. #, ;JUST KEEP FLAGS 

6672 #/700000, ; 

6673 HOLD RIGHT 

6674 [AR]_JAR].AND.#, ;JUST KEEP PBN 

6675 #/030000 

6676 [BRX]_JBRX].0R.[AR], ; FINAL ANSWER 

6677 HOLD RIGHT 

6678 ACJBRX], J/EDITLP ; DO NEXT FUNCTION 
6679 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

EXTEND. MI C[ 10,1141] 11:35 26-JULY-1984 



U 0332, 3353,3771,0003,7274,4007,0700,0010,0000,0244 

U 0336, 3342,3771 ,0003, 1 276 , 6007 , 0701 , 0000 , 0000 , 1443 

U 3342, 2244,0113,0703,1174,4007,0521,0400,0000,1443 

U 2244 , 0002 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 , 0000 , 0000 

U 2245, 0332,4443,0000,7174,4007,0700,0000,0000,0244 



4 ffljaa 
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. EXTEND SUBROUTINES -- FILL OUT DESTINATION 

6680 .TOC "EXTEND SUBROUTINES -- FILL OUT DESTINATION" 
6681 

6682 ; CALL WITH 

6683 ; AC [DLEN] / NEGATIVE NUMBER OF BYTES LEFT IN DEST 

6684 ; FILL/ FILL BYTE 

6685 ; RETURN [2] WITH FILLERS STORED 

6686 ; 

6687 ; NOTE : THIS ROUTINE NEED NOT TEST FOR INTERRUPTS ON EACH BYTE 

6688 ; BECAUSE EVERY BYTE STORE DOES A MEMORY READ. 

6689 ; 

6690 =01* 

6691 M0VF1: [ AR]_WORK[FILL] , 2T , ; GET FILL BYTE 

6692 CALL [PUTDST] ;PLACE IN DEST 

6693 [AR]__AC[DLEN] ; AMOUNT LEFT 

6694 AC[DLEN]_[AR]+1 , 3T , ; STORE UPDATED LEN 

6695 SKIP DPO ; AND SEE IF DONE 

6696 =0 RETURN [2] ; DONE 

6697 MOVFIL: WORK[ FILL] , J/MOVF 1 ;D0 ANOTHER BYTE 

6698 ; ENTERING HERE SAVES 150NS 

6699 ; PER BYTE BUT COSTS 300NS 

6700 ; PER FIELD MOVED. I ASSUME (BUT DO 

6701 ; NOT KNOW) THAT THIS SPEEDS 

6702 ; THINGS UP. 
6703 



T10KI .MCR[ 10, 1 141 ] 
EXTEND. MICC 10, 1 141 ] 



11:45 11-AUG-1984 
1 1 :35 26-JULY-1984 



MICRO 



U 1040, 2256,3333,0003,7174,4007,0520,0410,0000,0242 
U 1041, 0001,4221,0013,4170,4004,1700,0000,0000,0000 
U 1042, 0716,4443,0000,7174,4003,7700,0000,0000,0241 



U 0716, 
U 0717, 



3345 , 3447 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3343 , 3770 , 0303 ,7174, 0007 , 0700 , 0000 , OOOO , 024 1 



U 3343, 3344,0551,0303,7274,4007,0700,0000,0000,0241 



U 3344, 0004,4553,0300,7274,4004,1622,0000,0000,0243 
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EXTEND SUBROUTINES GET MODIFIED SOURCE BYTE 

6704 . TOC " EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE" 
6705 

6706 ; CALL WITH: 

6707 ; SLEN = MINUS LENGTH OF STRING 

6708 ;MSK = MASK FOR BYTE SIZE (1 IF BIT MUST BE ZERO) 

6709 ;E1 = EFFECTIVE ADDRESS OF OPERATION WORD (SIGN EXTENDED IF OFFSET) 

6710 ; [AR]_W0RK[SLEN]+1 , CALL [SRCMOD] 

6711 ; RETURNS: 

6712 ; 1 LENGTH EXHAUSTED 

6713 ; 2 (EDIT ONLY) NO SIGNIFICANCE 

6714 ; 3 (EDIT ONLY) SIGNIFICANCE START: 

6715 ; 4 ABORT: OUT OF RANGE OR TRANSLATE FAILURE 

6716 ; 5 NORMAL: BYTE IN AR 

6717 ; 

6718 ; DROM B SET AS FOLLOWS: 

6719 ; O TRANSLATE 
'6720 ; 1 OFFSET 

6721 ; 2 EDIT 

6722 ; 4 CVTDBT 

6723 =00 

6724 SRCMOD: W0RK[ SLEN]_[ AR ] , ; PUT BACK SOURCE LENGTH 

6725 SKIP DPO, ;SEE IF DONE 

6726 CALL [GSRC] ; GET A SOURCE BYTE 

6727 END STATE, RETURN [1] ; DONE 

6728 W0RK[E1], B DISP ; OFFSET OR TRANSLATE? 

6729 = 

6730 =1110 [AR]_[AR]*.5, ' J/XLATE ; TRANSLATE 

6731 FIX [AR] SIGN, W0RK[E1] ;IF WE ARE PROCESSING FULL WORD 

6732 ; BYTES, AND THEY ARE NEGATIVE, 

6733 ; AND THE OFFSET IS POSITIVE THEN 

6734 ; WE HAVE TO MAKE BITS -1 AND -2 

6735 ; COPIES OF THE SIGN BIT. 

6736 [AR]_[AR]+W0RK[E1] S 2T ; OFFSET 

6737 [ AR ] . AND . WORK [ MSK ] , ; VALID BYTE? 

6738 SKIP AD.EO.O, 4T, ;SKIP IF OK 

6739 RETURN [4] ; RETURN 4 IF BAD, 5 IF OK 
6740 



T10KI .MCR[ 10, 1141] 11:45 1 1 -AUG- 1984 

EXTEND .MIC [10, 1141] 11:35 26-JULY-1984 



MICRO 



U 3345, 3346,0551 ,0303,7274,4007,0701 ,0000,0000,0241 

U 3346, 2246,3333,0003,4174,4007,0700,0200,0004,0012 

U 2246, 3563,3445,0303,4174,4007,0700,0010,0000,0000 

U 2247, 2250,4553,0300,4374,4007,0331,0000,0000,0001 



U 2250, 0721,3441,0403,4174,4003,1701,0000,0000,0000 
U 225 1 , 2250 , 3770 , 0404 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 



254) 
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EXTEND SUBROUTINES -- TRANSLATE 



6741 
6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
6758 



.TQC 



'EXTEND SUBROUTINES 



; HERE WITH BYTE IN AR 1-36. 
XLATE : [AR]_[AR]+W0RK[E1 ] 
TRNAR: READ [AR], LOAD VMA 

START READ 
=0 • [AR] [AR]*2, 



=0 

XLATE 1 



CALL [LOADARX] 
TR [AR], #/1 

[AR]__[ARX], 3T, 
DISP/DP LEFT, 
J/TRNFNC 

[ARX]_[ARX] SWAP, 
J/XLATE 1 



TRANSLATE" 

FETCH TABLE ENTRY. 

[COMPUTE ADDRESS 
FETCH WORD 

GET BACK LSB 
BIT 36 IS NOT PRESERVED 

BY PAGE FAILS 
PUT ENTRY IN ARX 
WHICH HALF? 



RH -- COPY TO AR 
DISPATCH ON CODE 
DISPATCH TABLE 
LH -- FLIP AROUND 
START SHIFT 



T10KI - MCR[ 10, 1141] 11:45 1 1 -AUG- 1984 

EXTEND. MIC [ 10, 1141] 11:35 26-JULY-1984 



MICRO 



U 0721, 2252,3333,0006,4174,4007,0520,0000,0000,0000 
U 0723, 0004,4443,0000,4174,4004,1700,0000,0000,0000 

U 0725, 0721,5551,0606,4374,0007,0700,0000,0010,0000 

U 0727, 0721,3551,0606,4374,0007,0700,0000,0010,0000 

U 0731, 0721,3551,0606,4374,0007,0700,0000,0020,0000 

U 0733, 0004,3551,0606,4374,0004,1700,0000,0020,0000 

U 0735, 0731,5551,0606,4374,0007,0700,0000,0010,0000 

U 0737, 0721,3551,0606,4374,0007,0700,0000,0030,0000 



254) 



6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 
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EXTEND SUBROUTINES TRANSLATE 

HERE ON TRANSLATE OPERATION TO PERFORM FUNCTIONS REQUIRED BY 
THE 3 HIGH ORDER BITS OF THE TRANSLATE FUNCTION HALFWORD. WE 
DISPATCH ON FUNCTION AND HAVE: 

BRX/ FLAGS 

ARX/ TABLE ENTRY IN RH 



=0001 
TRNFNC: 



READ [BRX], SKIP DPO, 
J/TRNRET 

RETURN [4] 

[BRX]_[BRX] . AND . NOT . # , 
#/100000, HOLD RIGHT, 
J/TRNFNC 

[BRX]_[BRX] ,0R.#, 

#/ 100000, HOLD RIGHT, 

J/TRNFNC 



TRNSIG: [BRXj_[BRX] . OR . ft , 

#/ 200000, HOLD RIGHT, 
J/TRNFNC 

[BRX]_[BRX] .0R.#, 
#/200000, HOLD RIGHT, 
RETURN [4] 

[BRX]_[BRX ] . AND . NOT . # , 
0/ 100000, HOLD RIGHT, 
J/TRNSIG 

[BRX]_[BRX] .0R.#, 
#/300000, HOLD RIGHT, 
J/TRNFNC 



(0) NOP 

S FLAG ALREADY SET? 
( 1 ) ABORT 
; (2) CLEAR M FLAG 

; (3) SET M FLAG 

; (4) SET N FLAG 

;(5) SET N FLAG THEN ABORT 

; (6) CLEAR M THEN SET N 



; (7) SET N AND M 



T10KI .MCR[ 10, 1 141 ] 
EXTEND. MIC[ 10, 1141] 



11:46 11-AUG-1984 
1 1 :35 26-JULY-1984 



MICRO 



U 2252, 0754,3333,0004,4174,4003,7530,0000,0000,0000 
U 2253, 0005,4251,0403,4374,4004,1700,0000,0007,7777 

U 0754, 0533,3771,0003,1276,6003,7701,0000,0000,1443 

U. 0755, 2253,3551 , 0606 , 4374 ,'0007 , 0700 , 0000 , 0040, 0000 
U 0756, 0002,3771,0003,7274,4004,1701,0000,0000,0244 
U 0757, 0003,3771,0003,1276,6004,1701,0000,0000,1444 

U 0533, 3347,1111,0703,4174,4007,0700,4000,0000,0000 

U 0537, 1040,0551 , 0703 , 7274 , 4007 , 0701 , 0000 , 0000 , 0242 

U 3347 , 2254 , 3770 , 0303 ,1174, 4007 , 0520 , 0400 , 0000 , 1 443 

U 2254, 1040,3771 ,0003,7274,4007,0701 ,0000,0000,0242 

U 2255, 1040,0551 ,0703 , 7274 , 4007 ,0701 ,0000,0000,0242 
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EXTEND SUBROUTINES -- TRANSLATE 



6796 ; HERE TO COMPLETE A TRANSLATE 
6797 

6798 =0 

6799 TRNRET: READ [ARX], SKIP DP18, ; S-FLAG IS ZERO 

6800 B DISP, SKIP DP18, ;SEE IF EDIT OR SIG START 

6801 J/TRNSS ; . . 

6802 TRNSS1: [ AR ]_[ ARX ] . AND . ft CLR LH, ;S IS SET, JUST RETURN BYTE 

6803 It/11111, RETURN [5] ; .. 
6804 

6805 =1100 

6806 TRNSS: [ AR ]_AC [ DLEN ] , ; NO SIG ON MOVE OR D2B 

6807 B DISP, J/TRNNS 1 ;SEE IF D2B 

6808 [BRX]_[BRX] .OR. ft, ;SIG START ON MOVE OR D2B 

6809 ft/ 400000, HOLD RIGHT, 

6810 O/TRNSS 1 ; RETURN BYTE 

6811 [AR]_WORK[FILL] , ;EDIT--N0 SIG RETURN FILL 

6812 RETURN [2] ; . . 

6813 [AR]_AC[DSTP] , ; EDIT- -START OF SIG 

6814 RETURN [3] ; . . 
6815 

6816 =1011 

6817 TRNNS1: [ AR ]_[ AR ] - 1 , J/TRNNS2 .-COMPENSATE FOR IGNORING SRC 

6818 [AR]_W0RK[SLEN]+1 , ;DEC TO BIN HAS NO DEST LENGTH 

6819 J/SRCMOD ; JUST UPDATE SRC LENTH 

6820 TRNNS2 : AC [DLEN]_[ AR ] TEST, ; PUT BACK DLEN AND 

6821 SKIP DPO ; SEE WHICH IS NOW SHORTER 

6822 =0 [AR]_WORK[SLEN] , ; DEST IS SHORTER. DO NOT CHANGE 

6823 J/SRCMOD ; AMOUNT LEFT 

6824 [AR]_W0RK[SLEN]+1 , ; GO LOOK AT NEXT BYTE 

6825 d/SRCMOD 
6826 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 

EXTEND . MIC t 10, 1141] 11:35 26-JULY-1984 



MICRO 



U 2256, 0001,3771,0003,1276,6004,1701,0000,0000,1443 

U 2257, 3350,3771,0003,1276,6007,0701,0000,0000,1441 

U 3350, 0231,3770,0305,4334,4016,7701,0000,0033,6000 

U 0231, 3352,3441,0503,4174,4007,0700,0000,0000,0000 

U 0233 , 335 1 , 3770 , 0503 , 4334 , 40 1 7 , 0700 , 0000 , 0032 , 6000 

U 3351, 3352,0111,0703,4170,4007,0700,0000,0000,0000 

U 3352, 2260,3440,0303, 1 174,4007,0700,0400,0000, 1441 

U 2260, 2760,3333,0003,4174,4217,0701 , 1010,0073,0500 



U 2261, 0340,3333,0003,4174,4006,5701,1000,0051,0770 
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EXTEND SUBROUTINES GET UNMODIFIED SOURCE BYTE 

6827 .TOC "EXTEND SUBROUTINES -- GET UNMODIFIED SOURCE BYTE" 
6828 

6829 ;CALL: 

6830 ; GSRC WITH SKIP ON SOURCE LENGTH 

6831 ; GETSRC IF LENGHT IS OK 

6832 ;WITH: 

6833 ; AC 1/ SOURCE BYTE POINTER 

6834 ; RETURNS: 

6835 ; 1 IF LENGTH RAN OUT 

6836 ; 2 IF OK (BYTE IN AR) 

6837 ; 

6838 =0 

6839 GSRC: [ AR]_AC[DLEN] , ; LENGTH RAN OUT 

6840 RETURN [1] ; RESTORE AR AND RETURN 

6841 GETSRC: [ AR]_AC[SRCP] ; GET SRC PTR 

6842 IBP DP, IBP SCAD, ; UPDATE BYTE POINTER 

6843 SCAD DISP, 3T ;SEE IF OFLOW 

6844 =01 [ AR]_[BR] , J/GSRC1 ;N0 OFLOW 

6845 SET P TO 36-S ; RESET P 

6846 [AR]_[AR]+1, HOLD LEFT ;BUMP Y 
6847 

6848 GSRC 1 : AC[ SRCP ]_[ AR 3 ; STORE UPDATED POINTER 

6849 =0 READ [AR], LOAD BYTE EA,;SETUP TO FIGURE OUT 

6850 FE_F\ 3T, CALL [BYTEAS] ; EFFECTIVE ADDRESS 

6851 READ [AR], ; LOOK AT POINTER 

6852 BYTE DISP, ;SEE IF 7 BIT 

6853 FE__FE . AND . S# , S#/0770, ; MASK OUT P FIELD 

6854 J/LDB1 ; GO GET THE BYTE 
6855 



o 

; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
; EXTEND . MIC [ 10 , 1 141 ] 1 1 : 35 26- JULY- 1984 



U 3353 , 2262 , 344 1 , 0304 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 2262, 3354,3771,0003,1276,6007,0701,0010,0000,1444 

U 2263, 2264,0113,0404,4174,4007,0701,1000,0077,0000 



U 2264, 0360,3333,0003,4174,4006,5701,0010,0000,0000 
U 2266, 0006,4443,0000,4174,4004,1700,0000,0000,0000 
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EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING 

6856 .TOC "EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING" 
6857 

6858 ; CALL WITH: 

6859 ; AR/ BYTE TO STORE 

6860 ; AC4/ DESTINATION BYTE POINTER 

6861 ; RETURNS: 

6862 ; AR & AC4/ UPDATED BYTE POINTER 

6863 ; ARX/ BYTE TO STORE 

6864 ; BR/ WORD TO MERGE WITH 

6865 ; 6 ALWAYS 

6866 ; 

6867 PUTDST: [ARX]_[AR] ; SAVE BYTE 

6868 =0 [AR]_AC[DSTP] , ; GET DEST POINTER 

6869 CALL [IDST] ;BUMP DEST POINTER 

6870 AD/A+B, A/ARX, B/ARX, ; SHIFT 7-BIT BYTE TO 

6871 SCAD/A, 3T , ; NATURAL PLACE, AND PUT 

6872 SCADA/BYTE5, LOAD FE ; INTO FE 

6873 =0* READ [AR], BYTE DISP, ; GO PUT BYTE IN MEMORY 

6874 CALL [DPB1 ] ; . . 

6875 RETURN [6] ; ALL DONE 
6876 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 
EXTEND . MIC [ 10, 1141] 11:35 26- JULY- 1984 



MICRO 31(254) 
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EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS 



U 3354, 2265,3770,0305,4334,4016,7701,0000,0033,6000 

U 2265, 3356,3441,0503,4174,4217,0700,0000,0000,0600 

U 2267, 3355,3770,0503,4334,4017,0700,0000,0032,6000 

U 3355, 3356,0111,0703,4170,4217,0700,0000,0000,0600 

U 3356, 0230,3440,0303,1174,4006,6701,1400,0073,1444 

U 0230, 2763,0553,0300,2274,4007,0701,0200,0004,0712 

U 0232, 2763,3443,0300,4174,4007,0700,0200,0004,0712 

U 0234, 3357,0553,0300,2274,4007,0701,0200,0004,0612 

U 0236, 3357,3443,0300,4174,4007,0700,0200,0004,0612 

U 3357, 3360,3771,0003,4361,5217,0700,0200,0000,0602 

U 3360, 0230,4443,0000,2174,4006,6700,0000,0000,0000 



U 3556, 2621,4551,0202,4374,0007,0700,0000,0077,7740 
U 3557, 0004,4443,0000,4174,4004,1700,0000,0000,0000 



U 3361, 3362,3771,0003,4365,5007,0700,0200,0000,0002 
U 3362, 0010,3333,0003,7174,4004,1700,0400,0000,0244 

U 3363, 0001,4551,0303,4374,0004,1700,0000,0000,0777 



6877 

6878 

6879 

6880 

6881 

6882 

6883 

6884 

6885 

6886 

6887 

6888 

6889 

6890 

6891 

6892 

6893 

6894 

6895 

6896 

6897 

6898 

6899 

6900 

6901 

6902 

6903 

6904 

6905 

6906 

6907 

6908 

6909 

6910 

6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 



.TOC 



•EXTEND SUBROUTINES 



UPDATE DEST STRING POINTERS" 



SUBROUTINE TO BUMP DST POINTERS 
CALL WITH: 

AR/ AC[DSTP] 

RETURN 1 WITH UPDATED POINTER STORED 



IDST: 
=0* 



IDSTX: 

= 100* 
DSTEA: 



IBP DP, IBP SCAD, SCAD DISP, 3T 
[AR]_[BR], LOAD DST EA, J/IDSTX 
SET P TO 36-S 
[AR]_[AR]+1 , HOLD LEFT 
AC[DSTP]_[AR] , 3T, 
FE_P, DISP/EAMODE 



LOAD DST EA 
; STORE PTR BACK 
;SAVE P FOR CMPDST 



VMA_[AR]+XR, START READ, PXCT BYTE DATA, 3T, U/BYTFET 
VMA_[AR], START READ, PXCT BYTE DATA, d/BYTFET 
VMA_[AR]+XR, START READ, PXCT/BI S-DST-EA , 3T , U/DSTIND 
VMA_JAR], START READ, PXCT/BIS-DST-EA , U/DSTIND 

DSTIND: MEM READ, [AR]_MEM, HOLD LEFT, LOAD DST EA 
EA MODE DISP, U/DSTEA 



HERE TO TEST ILLEGAL BITS SET 

CALL WITH: 

SKIP IF ALL BITS LEGAL 
RETURN [4] IF OK, ELSE DO UUO 



EXTEND OF COMES HERE 



3556: 
BITCHK: UUO 
3557:- RETURN [4] 



; HERE TO PUT FILL IN [AR] AND WORK[FILL] 



GTFILL: MEM READ, 
[ AR ]_MEM 

W0RK[FILL]_JAR] , 
RETURN [10] 



WAIT FOR DATA 
PLACE IN AR 
SAVE FOR LATER 
RETURN TO CALLER 



; SUBROUTINE TO CLEAR FLAGS IN AR 

CLRFLG: [ AR ]_[ AR ] . AND . # , ; CLEAR FLAGS IN AR 

#/000777, ; .. 

HOLD RIGHT, RETURN [1] 



T10KI .MCR[ 10, 1141] 
EXTEND. MIC[ 10, 1141] 



11:45 11 -AUG- 1984 
1 1 :35 26-JULY-1984 



MICRO 31(254) 



U 2270, 3376,3771,0003, 

U 2271, 2566,3440,0505, 

U 3364, 3365,3771,0003, 

U 3365, 2272,0113,0703, 



U 2272, 3376,3771,0003, 
U 2273, 2566,3440,0505, 



1276,6007,0701 ,0010,0000, 1441 
1 174,4007,0700,0400,0000, 1441 

7274 , 4007 , 070 1 , 0000 , 0000 , 02 1 4 
0174, 4007 , 070 1 , 0400 , 0000 , 0000 



1276,6007,0701 ,0010,0000, 1444 
1174, 4007 , 0700 , 0400 , 0000 ,1444 



U 3366, 

U 3367, 

U 2274, 
U 2275, 

U 2276, 
U 2277, 

U 3370, 

U 3371 , 

U 3372, 
U 3373, 
U 3374, 



3367, 

2274, 

3371 , 
2276, 

3573, 
3370, 

2566, 

3373, 

3373, 
3374, 
2566, 



1771 

3771 

3440, 
3441 , 

3551 , 
1111, 

3440, 

01 1 1 , 

1771 , 
3551 , 
3440, 



, 0003 . 

, 0005 , 

0303, 
0304, 

0404, 
0503, 

0303, 

0503, 

0003, 
0303, 
0303, 



,7274, 

, 1276, 

, 1 174, 
,4174, 

,7274, 
,4174, 

, 1 174, 

,4174, 

,7274, 
,7274, 
,0174, 



4007, 

6007, 

4007, 
4007, 

4007, 
4007, 

4007, 

4007, 

4007, 
4007, 
4007, 



0701 , 

0522, 

0700, 
0700, 

0701, 
0700, 

0700, 

0700, 

0701, 
0701 , 
0700", 



4000, 

0000, 

0400, 
0000, 

0010, 
4000, 

0400, 

0000, 

4000, 
0000, 
0400, 



0000 

0000, 

0000, 
0000, 

0000, 
0000, 

0000, 

0000, 

0000, 
0000, 
0000, 



0242 

1443 

1443 
0000 

0214 
0000 

1443 

0000 

0242 
0214 
0000 



U 3375, 3367,7771,0003,7274,4007,0701,0000,0000,0242 
U 3376, 0001,3770,0305,4334,4014,1700,0000,0043,6000 
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EXTEND -- PAGE FAIL CLEANUP 

'EXTEND -- PAGE FAIL CLEANUP" 



692 1 


. TOC 


6922 




6923 


; BACK UP 


6924 


=0 


6925 


BACKS : 


6926 




6927 




6928 




6929 


CMSDST : 


6930 




693 1 


; BACK UP 


6932 


=0 


6933 


BACKD : 


6934 




6935 




6936 




6937 


; FAILURE 


6938 


STRPF : 


6939 


STRPFO: 


6940 




694 1 


=0 


6942 


STRPF 1 : 


6943 




6944 


=0 


6945 




6946 




6947 


STRPF3 • 


6948 




6949 




6950 


STPF 1A : 


695 1 




6952 


PFDBIN: 


6953 


STRPF2 : 


6954 


PFGACO: 


6955 




6956 


STRPF4: 


6957 




6958 


BACKBP: 


6959 


I 


6960 





[AR]_AC[SRCP] , 
CALL [BACKBP] 
AC[SRCP]_[BR] , J/CLDISP 



AC [AR]+1, 3T 



[AR]_AC[DSTP] , 
CALL [BACKBP] 
AC[DSTP] [BR], J/CLDISP 



; BACKUP BP 



; GET .OLD SRC LEN 
; BACK UP 



[AR]_-WORK[SLEN] 
[BR]_AC[DLEN] , 4T , 
SKIP DPO 



; GET AMOUNT LEFT 

; WHICH STRING IS LONGER? 



[ARX]_[AR] ;COPY SRC LENGTH 

[ARX]_[ARX] .OR.WORK[SV.BRX] , ; REBUILD FLAGS 
CALL [AC__ARX] ; RESET AC]SLEN] 

[AR]_[AR]-[BR] ; MAKE DEST LEN 

AC [DLEN]_J AR ] , ; PUT BACK DEST LEN 

J/CLDISP ;D0 NEXT CLEANUP 

[AR]_[AR]+[BR] , J/STRPF2 

[AR]_-WORK[SLEN] ; RESTORE LENGTH 

[ AR ]_[ AR ] . OR . WORK [ SV . BRX ] 

AC_[AR], J/CLDISP ;PUT BACK SRC LEN AND FLAGS 

[AR]_.NOT.WORK[SLEN] , J/STRPFO 

IBP DP, SCAD/A+B, SCADA/BYTE 1 , SCADB/SIZE, ;P_P+S 
RETURN [1] 



T10KI.MCR[10, 1141] 11:45 11 -AUG- 1984 MICRO 
INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 



U 3377, 3400,3741,0104,4074,4007,0700,0000,0000,0000 
U 3400 , 2300 , 3333 , 0004 , 7 1 74 , 4007 , 0340 , 0400 , 0000 ,0425 

U 2300, 3401,0111,1103,4364,4007,0700,0200,0024,1016 

U 2301 , 3401 ,0111, 1003,4364,4007,0700,0200,0024, 1016 

U 3401 , 3402,3771 ,0002,4365,5617,0700,0200,0000,0002 

U 3402 , 2302 , 4553 , 0200 , 4374 , 4007 , 032 1 , 0000 , 0070 , 0000 

U 2302, 2600,4443,0000,4174,4467,0700,0000,0001,0000 
U 2303, 2621 ,4551 ,0202,4374,0007,0700,0000,0077,7740 
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TRAPS 

6961 .TOC ' "TRAPS" 
6962 

6963 TRAP: [ARX]_PC WITH FLAGS ; SAVE THE PC WHICH CAUSED THE 

6964 WORK[TRAPPC]_[ARX] , ; TRAP 

6965 SKIP KERNEL ;SEE IF UBR OR EBR 

6966 =0 [AR]_[AR]+[UBR] , ; ADDRESS OF INSTRUCTION 

6967 MEM READ, ;WAIT FOR PREFETCH TO GET INTO 

6968 ; THE CACHE. MAY PAGE FAIL BUT 

6969 ; THAT IS OK 

6970 START READ, ; START FETCH 

6971 VMA PHYSICAL, ; ABSOLUTE ADDRESSING 

6972 J/TRP1 ;JOIN COMMON CODE 
6973 

6974 [ AR ]_[ AR ]+[ EBR ] , ;WE COME HERE IN EXEC MODE 

•6975 MEM READ, ;WAIT FOR PREFETCH TO GET INTO 

6976 ; THE CACHE. MAY PAGE FAIL BUT 

6977 ; THAT IS OK 

6978 START READ, ; START FETCH 

6979 VMA PHYSICAL, ; ABSOLUTE ADDRESSING 

6980 J/TRP1 ;JOIN COMMON CODE 
6981 

6982 TRP1: MEM READ, [HR]_MEM, ;PLACE INSTRUCTION IN HR 

6983 LOAD INST ; LOAD IR, XR, @ 

6984 . [HR ] . AND . # , ; TEST TO SEE IF THIS 

6985 #/ 700000, 3T , ; IS A UUO 

6986 SKIP ADL.EQ.O 

6987 =0 CHANGE FLAGS, ;NOT A UUO 

6988 HOLD USER/1, ; CLEAR TRAP FLAGS 

6989 J/XCT1 ;D0 THE INSTRUCTION 

6990 UUO ;D0 THE UUO 
6991 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 



1200, 1700,4100 
1200, 1720,4100 



2621, 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2621,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
262 1,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
3405 ,3771, 0005 , 4304 , 4007 , 070 1 , 0000 , 0000 , 0000 
3403 ,3771, 0005 , 4304 , 4007 , 070 1 , 0000 , 0000 , 0000 



2621 , 
2621 , 
2621 , 
2621 , 
3406, 
3404, 



4551 
4551 
4551 
4551 
3441 
3441 , 



0202,4374, 
0202,4374, 
0202,4374, 
0202,4374, 
1405,4174, 
1405,4174, 



0007,0700 
0007 , 0700 
0007 , 0700 
0007,0700 
4007 , 0700 
4007 , 0700 



,0000,0077,7740 
,0000,0077,7740 
,0000,0077,7740 
,0000,0077,7740 
0000,0000,0000 
,0000,0000,0000 



262 1,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
262 1 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2621,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 



2621 , 
2621 
2621 , 
2621 , 
2621 . 
2621 , 
2621 , 
2621 , 



4551 , 
4551 . 
4551 . 
4551 , 
4551 , 
4551 , 
4551 . 
4551 , 



0202, 
0202, 
0202, 
0202, 
0202, 
0202, 
0202, 
0202, 



4374, 
4374 
4374. 
4374. 
4374. 
4374, 
4374, 
4374, 



0007. 
0007 
0007 
0007 
0007 
0007 
0007 
0007 



,0700, 
,0700. 
,0700, 
,0700, 
,0700, 
,0700, 
,0700, 
,0700, 



0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 



0077, 
0077. 
0077, 
0077, 
0077. 
0077, 
0077, 
0077, 



7740 
7740 
7740 
7740 
7740 
7740 
7740 
7740 



3404 , 425 1 , 0505 , 4374 , 4007 , 0700 , 0000 , 0000 ,7770 
0372 ,4113, 0305 ,4174, 4007 , 0330 , 0000 , 0000 , 0000 

3406 , 425 1 , 0505 , 4374 , 4007 , 0700 , 0000 , 0000 , 7770 
1 400 ,4113, 0305 ,4174, 4007 , 0330 , 0000 , 0000 , OOOO 
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6992 




. TOC 


10 


- INTERNAL DEVICES 


6993 










6994 




. DCODE 






6995 


700: 


IOT,AC DISP, 


J/GRP700 


6996 




IOT,AC DISP, 


J/GRP701 


6997 




.UCODE 






6998 










6999 


1701 


UUO 




; DATA I APR, 


7000 


1702 


UUO 




; BLKO APR, 


7001 


1703 


UUO 




; DATAO APR, 


7002 


1706 


[BR] APR, 


d/APRSZ ; CONSZ APR, 


7003 


1707 


[BR] APR, 


J/APRSO ; CONSO APR, 


7004 


1710 








7005 


RDERA: UUO 




; BLKI PI, 


7006 


1711 


UUO 




; DATAI PI, 


7007 


1712 


UUO 




; BLKO PI, 


7008 


1713 


UUO 




; DATAO PI, 


7009 


1716 


[BR] [PI] 


, J/CONSZ ; CONSZ PI, 


7010 


1717 


[BR] [PI] 


, J/CONSO ; CONSO PI, 


701 1 










7012 


1720 








7013 


GRP701 : UUO 




; BLKI PAG, 


7014 


-1726 


UUO 




; CONSZ PAG, 


7015 


1727 


UUO 




; CONSO PAG, 


7016 










7017 


;680I AND CACHE SWEEP 


STUFF 


7018 


1730 


UUO 






7019 


1731 


UUO 






7020 


1732 


UUO 






7021 


1733 


UUO 






7022 


1734 


UUO 






7023 


1735 


UUO 






7024 


1736 


UUO 






7025 


1737 


UUO 






7026 










7027 


APRSO: [BR] [BR] 


.AND 


U CLR LH, #/7770 


7028 


CONSO: [BR]. AND. 


[AR] 


SKIP ADR.EO.O, J/SKIP 


7029 










7030 


APRSZ: [BR] [BR] 


.AND 


CLR LH, 0/7770 


7031 


CONSZ: [BR]. AND. 


[AR] 


SKIP ADR.EQ.O, J/DONE 


7032 











T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 

INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY- 1984 



U 1700, 0137,3771,0005,4374,4007,0700,0000,0001,0001 



U0137, 3513,3771, 0005 , 4374 , 0007 , 0700 , 0000 , 00 1 6 , O 1 24 



U 1704, 3407,3771 ,0005,7274,4007,0701 ,0000,0000,0230 



U 3407, 
U 3410, 
U 3411, 



U 3412, 
U 3413, 
U 2304, 
U 2305, 
U 2306, 
U 2307, 
U 3414, 
U 2310, 
231 1 , 
U 2312, 
U 2313, 



U 



U 2314, 
U 2315, 

U 3415, 

U 3416, 



3410, 
3411 , 
3412, 

3413, 
2304, 
2305, 
2306, 
2307, 
3414, 
2310, 
2311, 
2312, 
2313, 
2314, 

3417, 
3415, 

3416, 

1400, 



5551 
4551 
3111 

4551 , 
4553, 
3111, 
4553, 
5111, 
3771 , 
4553, 
5111. 
4553, 
3111, 
4553, 

3333, 
3333, 

3333, 

3333, 



,0505, 
,0304, 
,0405, 

,0304, 
, 0300 , 
,0405, 
,0300, 
, 0405 , 
, 0006 , 
, 0300 , 
, 0406 , 
,0300, 
, 0406 , 
,0300, 

, 0006 , 
,0005, 

0005, 

0005, 



4370, 
4374, 
4174, 

4374, 
4374, 
4174, 
4374, 
4174, 
4304, 
4374, 
4174, 
4374, 
4174, 
4374, 

4174, 
4174, 

4174, 

7174, 



4007 , 

■ 4007 , 
4007 , 

4007 , 
4007 , 
. 4007 , 
4007 , 

■ 4007 , 
4007 , 
4007 , 
4007 , 
4007 , 
4007 , 
4007 , 

4007 , 
. 4007 , 



, 0700 , 0000 , 0000 , 0007 
, 0700 , 0000 , OOOO , 0007 
, 0700 , 0000 , 0000 , 0000 



0700. 
0331 . 
0700, 
0331 , 
0700, 
0701 , 
0331 . 
0700, 
0331 , 
0700, 
0331 , 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0000 . 
0010. 
0000, 
0004 . 
,0000, 
0000, 
0002 . 
0000, 
0001 , 
0000 , 
0003 , 



7760 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



, 0700 , 0000 , 0000 , 0000 
, 0700 , 0000 , 0000 , 0000 



4257 , 0700 , 0000 , 0000 , 0000 
4007 , 0700 , 0400 , 0000 , 02 30 



U 3417, 3420,3333,0006,4174,4237,0700,0000,0000,0000 
U 3420 , 342 1,5551, 0606 , 4370 , 4007 , 0700 , 0000 , 0000 , 2000 



U 3421, 2315,3333, 0006 ,4174,4237, 0700 , 0000 , 0000 , 0000 
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7033 1700: 

7034 GRP700: 

7035 APR ID : [BR]_#, 

7036 #/4097. 

7037 137: [BR]_#, 

7038 MICROCODE 0PTI0N( INHCST )/OPT , 

7039 MICROCODE OPTION(NOCST )/OPT , 

7040 MICROCODE OPTI0N(NONSTD )/OPT , 

7041 MICROCODE OPTION(UBABLT )/OPT , 

7042 MICROCODE OPTION(KIPAGE )/OPT , 

7043 MICROCODE OPTION(KLPAGE )/OPT , 

7044 MICROCODE VERSION/UCV, 

7045 HOLD RIGHT, 

7046 J/RTNREG 
7047 

7048 1704: 

7049 WRAPR: [BR]_WORK[APR] 

7050 [BR ]_[BR ] . AND . NOT . # , ; CLEAR THE OLD PIA 

7051 #/7 , HOLD LEFT ; . . 

7052 [ARX]_[AR] . AND . # , 0/7 ; PUT NEW PIA IN ARX 

7053 [BR]_[BR] .OR. [ARX] ; PUT NEW PIA IN BR 

7054 [ARX]_[AR].AND.#, ; MASK THE DATA BITS 

7055 #/007760 ; DOWN TO ENABLES 

7056 TR [AR], #/ 100000 ; WANT TO ENABLE ANY? 

7057 =0 [BR]_[BR] .OR. [ARX] ; YES--SET THEM 

7058 TR [AR], #/40000 ; WANT TO DISABLE ANY? 

7059 =0 [BR]_[BR] .AND. NOT. [ARX] ;YES--CLEAR THEM 

7060 [BRX]_APR ; GET CURRENT STATUS 

7061 TR [AR], #/20000 ; WANT TO CLEAR FLAGS? 

7062 =0 [BRX]_[BRX] . AND . NOT . [ARX] ; YES- -CLEAR BITS 

7063 TR [AR], #/10000 ; WANT TO SET ANY FLAGS? 

7064 =0 [BRX]_[BRX] .OR. [ARX] ;YES--SET FLAGS 

7065 TR [AR], #/30000 ; ANY CHANGE AT ALL? 

7066 =0 READ [BRX] , ;YES~-LOAD NEW FLAGS 

7067 U/WRAPR2 ; TURN OFF INTERRUPT 8080 

7068 WRAPR 1 : READ [BR] ;FIX DPM TIMING BUG 

7069 READ [BR], ; ENABLE CONDITIONS 

7070 SET APR ENABLES 

7071 WORK[APR]_[BR] , ; SAVE FOR RDAPR 

7072 U/DONE ; ALL DONE 
7073 

7074 WRAPR2: READ [BRX], ; LOAD NEW FLAGS 

7075 SPEC/APR FLAGS ; . . 

7076 [BRX]_[BRX].AND.NQT.#, ; CLEAR INTERRUPT THE 8080 

7077 #/002000, HOLD LEFT ; FLAG 

7078 READ [BRX], ; LOAD NEW FLAGS 

7079 SPEC/APR FLAGS, ; .- 

7080 d/WRAPR 1 ;LOOP BACK 
7081 



n 



T10KI„MCR[ 10, 1141] 
INOUT.MICf 10, 1141] 



11:45 11 -AUG- 1984 
09: 17 27-JULY-1984 



MICRO 31(254) 



U 1705, 3422,3771 ,0005,7274,4007,0701 ,0000,0000,0230 

U 3422 , 3423 , 3770, 0505 , 4344 , 0007 , 0700 , 0000 , 0000 , 0000 

U 3423 , 3424 , 455 1 , 0505 , 4374 , 0007 , 0700 , 0000 , 0000, 7760 

U 3424, 3425,4551,0505,4370,4007,0700,0000,0000,0007 

U 3425, 3426,3771 ,0004,4304,4007,0701 ,0000,0000,0000 

U 3426 , 3427 , 425 1 , 0404 , 4374 , 4007 , 0700 , 0000 , 0000 , 7770 

U 3427, 3513,31 1 1 ,0405,4174,4007,0700,0000,0000,0000 



7082 
7083 
7084 
7085 
7086 
7087 
7088 
7089 
7090 
7091 
7092 
7093 
7094 
7095 
7096 
7097 
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1705: 
RDAPR: 



Page 194 



[BR]_W0RK[APR] 

[BR]_[BR] SWAP, 

HOLD RIGHT 

[BR]_[BR] . AND . # , 

#/7760, 

HOLD RIGHT 

[BR ]_[BR ] . AND . # , 

#/7, • 

HOLD LEFT 

[ARX]_APR 

[ARX]_[ARX] . AND.# CLR LH 
0/007770 

[BR]_[BR] .OR. [ ARX] , 
J/RTNREG 



PUT ENABLES IN BOTH 

HALVES 
SAVE ENABLES IN LH 



SAVE PIA IN RH 



READ THE APR FLAGS 

; MASK OUT JUNK 
KEEP 8 FLAGS 
MASH THE STUFF TOGETHER 
RETURN 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
; INOUT.MIC[ 10, 1141] 09 : 17 27- JULY- 1984 

U 1723, 3430 , 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 

U 3430, 2316,3771 ,0003,4365,5007,0521 ,0200,0000,0002 

U 2316, 2320,4551 ,0303,4374,0007,0321 ,0000,0010,0000 

U 2317, 3431 ,4551 ,1111 ,4374,0007,0700,0000,0077,0077 

U 3431 , 2320,4553,0300,4374,4007,0321 ,0000,0010,0000 

U 2320, 3432,4551 ,0305,4374,4007,0700,0000,0001 ,7777 

U 2321 , 1400, 31 1 1 ,031 1 ,4174,0477,0700,0000,0000,0000 

U 3432, 2322,4221 ,0005,4174,0007,0700,2000,0071 ,0007 

U 2322 , 2322 , 3445 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 

U 2323, 3433,4551 ,1111 ,4374,0007,0700,0000,0077,7774 

U 3433, 3434,4221 ,001 1 ,4170,4007,0700,0000,0000,0000 

U 3434, 3435,3111,0511,4174,4007,0700,0000,0000,0000 

U 3435, 2372,31 1 1 ,031 1 ,4174,0477,0700,0000,0000,0000 
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; 7098 -TOC "10 -- INTERNAL DEVICES' EBR & UBR" 

; 7099 

; 7100 1723: 

; 7101 WRUBR: VMA_[AR], ; LOAD E INTO VMA 

; 7102 START READ ; START MEMORY 

; 7103 MEM READ, ;WAIT FOR DATA 

; 7104 [AR]_MEM, 3T , ; PUT IT INTO THE AR 

; 7105 SKIP DPO ;SEE IF WE WANT TO LOAD 

•7106 ; AC BLOCK NUMBERS 

; 7107 =0 [ AR ]_[ AR ] . AND . # , ;N0--CLEAR JUNK IN AR 

; 7108 #/ 100000, ; LEAVE ONLY LOAD UBR 

; 7109 HOLD RIGHT, ; IN LEFT HALF 

; 7110 SKIP ADL.EO.O, 3T, ;SEE IF WE WANT TO LOAD 

■ 7111 J/ACBSET ;SKIP AROUND UBR LOAD 
; 7112 [UBR]_[UBR] . AND. #. , ; MASK OUT THE OLD 

■ 7113 #/770077, ; AC BLOCK NUMBERS 
\ 7114 HOLD RIGHT / ; IN THE LEFT HALF 

; 7115 [ AR ] . AND . # , / ;SEE IF WE WANT TO LOAD 

; 7116 #/ 100000, 3T, ; UBR ALSO 

; 7117 SKIP ADL.EO.O 

; 7118 =0 

; 7119 ACBSET: [BR ]_[ AR ] . AND . # , ;C0PY UBR PAGE NUMBER 

; 7120 #/17777, ; INTO BR 

; 7121 J/SETUBR ; GO LOAD UBR 

; 7122 [UBR]_[UBR] .OR. [AR] , ;D0 NOT LOAD UBR 

; 7123 ; PUT AC BLOCK # IN 

\ 7124 HOLD RIGHT, ; THE LEFT HALF 

; 712.5 LOAD AC BLOCKS, ; LOAD HARDWARE 

; 7126 J/DONE ; ALL DONE 

;* 7127 SETUBR : [BR]_0, ; CLEAR BR LEFT 

; 7128 SC_7, ;PUT THE COUNT IN SC 

; 7129 HOLD RIGHT 

; 7130 =0 

; 7131 STUBRS: [BR]_[BR]*2, ;SHIFT BR OVER 

; 7132 STEP SC, ; 9 PLACES 

; 7133 J/STUBRS 

; 7134 [UBR]_[UBR].AND.#, ; MASK OUT OLD UBR 

; 7135 #/777774, ; BITS IN 

; 7136 HOLD RIGHT ; LEFT HALF 

; 7137 [UBR]_0, -.CLEAR RIGHT HALF 

; 7138 HOLD LEFT 

; 7139 [UBR]_[UBRJ.0R.[BR] ; PUT IN PAGE TABLE ADDRESS 

; 7140 [UBR]_[UBR].0R.[AR], ; PUT IN AC BLOCK # 

; 7141 HOLD RIGHT, ; IN LEFT HALF 

; 7142 LOAD AC BLOCKS, ; TELL HARDWARE 

; 7143 J/SWEEP ; CLEAR CACHE 

; 7144 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; IN0UT.MIC[10, 1141] 09 : 1 7 27-JULY- 1984 



U 1 724 , 2324 , 3445 , 0303 ,4174, 4007 , 0700 , 2000 , 007 1 , 0006 
U 2324 , 2324 , 3445 , 0303 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 



U 2325 , 3436,3771, 0005 , 7274 , 4007 , 070 1 , 0000 , 0000 , 0230 

U 3436 , 3437 ,4551, 0505 , 4370 , 4007 , 0700 , 0000 , 0074 , 7777 

U 3437 , 2326 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 0020 

U 2326 , 2327,3551, 0505 , 4370 , 4007 , 0700 , 0000 , 0003 , 0000 
HAPPEN 

U 2327 , 3440 , 3333 , 0005 ,4174, 4257 , 0700 , 0000 , 0000 , 0000 

U 3440 , 344 1,3333, 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 0230 



NABLE 

ERNAL FLAG 
BIT O 



U 3441 , 2372,3441 ,0310,4174,4007,0700,0000,0000,0000 



U 1725, 2330,3447, 1005,4174,4007,0700,2000,0071 ,0006 

U 2330 , 2330 , 3447 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
U 2331 , 3442,4551 ,0505,4374,4007,0700,0000,0006,3777 



U 3442 , 3513,4221, 0005 ,4174, 0007 , 0700 , 0000 , 0000 , 0000 



31(254) 



KS10 MICROCODE V124, 27-JUL-84 Page 196 
10 INTERNAL DEVICES EBR & UBR 



; 7145 


1724: 




; 7146 


WREBR : 


[AR]_ 


\ 7147 


=0 




; 7 148 


WREBR 1 : 


[AR] 


; 7149 


.IF/FULL 




; 7150 






; 7151 




[BR] \ 


; 7152 




[BR] 


; 7153 




[AR]./ 


; 7154 


=0 


[BR]_ 


; 7 155 




READ 


; 7156 




WORK [ J 


; 7157 


. ENDI F/FULL 


■ 7158 






• 7 1 59 


. IF/KIPAGE 


; ;7160 


. I F/KLPAGE 


; ;7161 




[EBR] 


; ;7162 




[EBR] 


; ;7163 


=0 


[ EBR ] 


; ; 7164 




[EBR]. 


; 7165 


. ENDI F/KLPAGE 


; 7166 


. ENDI F/KIPAGE 


; 7167 






; 7168 


. IFNOT/KLPAGE 


; 7169 




[EBR] 


; 7170 


. ENDI F/KLPAGE 


; 7171 






; ;7172 


. I FNOT/KI PAGE 


; ;7173 




[EBR] 


; 7174 


. ENDI F/KI PAGE 


; 7175 






; 7176 


1725: 




; 7177 


RDEBR: 


[BR]_ 


; 7178 


=0 




; 7179 


RDEBR 1 : 


[BR] 


; 7180 




[BR] 


; 7181 




[BR]J 


; 7182 




HOLD 


; 7183 




J/RTNf 


; 7184 







;D0 A SHIFT OVER 8 MORE 

'WREBR1 ;SKIP WHEN = -1 
;D0 NOT ENABLE PAGING IN SMALL 
; MICROCODE. 



[BR] [BR].0R.#, #/030000, HOLD LEFT 



;BIT 22 - TRAP ENABL 
;SET - ALLOW TRAPS T 



; NOTE : SHIFTED LEFT 9 BITS 

<IP ADL.EQ.O ;BIT 21 - KL PAGING 



#/400000, HOLD RIGHT, J/SWEEP ;N0, CL 



;MUST BE KI ONLY 

;S0 INTERNAL FLAG ISN'T USED 



;MUST BE KL ONLY 

;S0 INTERNAL FLAG ISN'T USED 



CLEAR LEFT HALF 

BITS 
RETURN ANSWER 



T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 
INOUT.MIC[ 10, 1141] 09:17 27- JULY- 1984 



U 1721, 2332,3441 , 1 105, 4 174, 4007, 0700,0000, 0000, 0000* 
U 2332, 2334,3447,0506,4174,4007,0700,2010,0071,0006 



U 2333, 3513,4551,0505,4374,0007,0700,0000,0050,7700 



U 3443, 3444,3441,1105,4174,4007,0700,0000,0000,0000 

U 3444, 2334,3447,0506,4174,4007,0700,2000,0071,0006 

U 2334, 2334,3447,0606,4174,4007,0630,2000,0060,0000 

U 2335, 3445,4551,0606,4374,4007,0700,0000,0001,7777 

U 3445, 0001,3441,0605,4170,4004,1700,0000,0000,0000 



254) KS10 MICROCODE V124, 27-JUL-84 Page 197 
10 -- INTERNAL DEVICES -- EBR & UBR 

7185 1721: 

7186 RDUBR: [BR]_[UBR] 

7187 =0 [BRX]_[BR]*.5, SC_6 , CALL [GTPCW1] 

7188 [BR ]__[BR ] . AND . # , ; JUST RETURN USEFUL 

7189 #/507700, HOLD RIGHT, ; BITS 

7190 J/RTNREG 
7191 

7192 

7193 GETPCW: [BR]_[UBR] 

7194 [BRX]_[BR]*.5, SC_6 

7195 =0 

7196 GTPCW1: [BRX ]_[BRX ] * . 5 , STEP SC, J/GTPCW1 

7197 [BRX]_[BRX ] . AND . # , #/17777 

7198 [BR]_[BRX], HOLD LEFT, RETURN [1] 
7199 



; T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 

; INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 



D 0702, 1216,1760,4700 



U 1760, 3513,3771,0005,7274,4007,0701,0000,0000,0215 

U 1761, 3513,3771,0005,7274,4007,0701,0000,0000,0216 

U 1762, 3513,3771,0005,7274,4007,0701,0000,0000,0220 

U 1763, 3513,3771,0005,7274,4007,0701,0000,0000,0217 

U 1766, 3513,3771 ,0005,7274,4007,0701 ,0000,0000,0227 

U 1767, 2621,4551,0202,4374,0007,0700,0000,0077,7740 



U 1 770 , 3446 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , O004 , 0002 

U 3446, 3447,3771,0003,4365,5007,0700,0200,0000,0002 

U 3447 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 5 

U 1771, 3450 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0004 , 0002 

U 3450, 3451,3771,0003,4365,5007,0700,0200,0000,0002 

U 345 1 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 6 

U 1772, 3452,4443,0000,4174,4007,0700,0200,0004,0002 

U 3452, 3453,3771,0003,4365,5007,0700,0200,0000,0002 

U 3453 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0220 

U 1773, 3454,4443,0000,4174,4007,0700,0200,0004,0002 

U 3454, 3455,3771,0003,4365,5007,0700,0200,0000,0002 

U 3455 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , OOOO , 02 1 7 

U 1776, 3456,4443,0000,4174,4007,0700,0200,0004,0002 

U 3456 , 3457 , 377 1 , 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 3457 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 ,0227 

U 1777, 2621,4551,0202,4374,0007,0700,0000,0077,7740 
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10 INTERNAL DEVICES -- KL PAGING REGISTERS 



7200 


.TOC 


"10 -- INTERNAL DEVICES -- KL PAG 


7201 






7202 




. DCODE 


7203 


702: 


IOT,AC DISP, M, J/GRP702 


7204 




.UCODE 


7205 






7206 


1760: 




7207 


GRP702: 


[BR]_WORK[SBR] , J/RTNREG 


7208 


RDSPB: 


7209 


1761 : 




7210 


RDCSB: 


[BR]_WORK[CBR] , J/RTNREG 


721 1 


1762: 




7212 


RDPUR: 


[BR]_WORK[PUR] , J/RTNREG 


7213 


1763: 




7214 


RDCSTM: 


[BR]_WORK[CSTM] , J/RTNREG 


7215 


1766: 




7216 


RDHSB : 


[BR] WORK[HSBADR ] , J/RTNREG 


7217 


1767: 


UUO 


7218 






7219 


1770: 




7220 


WRSPB: 


START READ 


7221 




MEM READ , [AR] MEM 


7222 




WORK[SBR]_[AR] , J/DONE 


7223 


1771 : 


/ 

START READ 


7224 


WRCSB: 


7225 




MEM READ, [AR] MEM 


7226 




WORK[CBR]_[AR] , J/DONE 


7227 


1772: 




7228 


WRPUR : 


START READ 


7229 




MEM READ, [AR] MEM 


7230 




WORK[PUR]_[AR] , J/DONE 


7231 


1773: 




7232 


WRCSTM: 


START READ 


7233 




MEM READ, [AR] MEM 


7234 




WORK[CSTM]_[AR] , J/DONE 


723.5 


1776: 




7236 


WRHSB : 


START READ 


7237 




MEM READ , [AR] MEM 


7238 




WORKfHSBADR ] [AR], J/DONE 


7239 


1777: 


UUO 


7240 







T10KI .MCR[ 10, 1141] 
IN0UT.MIC[ 10, 1141] 



11:45 11 -AUG- 1984 
09: 17 27- JULY- 1984 



MICRO 



U 3460, 3461,3771,0003,7274,4117,0701,0000,0000,0301 

U 3461, 3462,4751,1205,4374,4007,0700,0000,0001,0000 

U 3462, 3463,01 1 1 ,0503,4174,4007,0700,0000,0000,0000 

U 3463, 2336,3770,0303,4174,0007,0520,0000,0000,0000 



U 2336, 
U 2337, 



U 2342, 
U 3464, 



3464 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 030 1 
2340 ,3771, 0003 , 7274 , 4007 , 070 1 , 0000 , 0000 , 0300 



U 2340, 3472,0111,0703,4174,4007,0700,0010,0000,0000 



2336 ,4221, 0003 ,4174, 4007 , 0700, 0000 , 0000 , 0000 
3465 ,3771, 0003 , 7274 , 4007 , 070 1 , 0000 , 0000 , 0303 



U 3465, 2344,1111,0503,4174,4007,0421,4000,0000,0000 



U 2344, 0002,3333,0003,7174,4004,1700,0400,0000,0303 

U 2345, 3466,3771,0003,7274,4007,0701,0000,0000,0302 

U 3466, 3467,3771,0005,4304,4007,0701,0000,0000,0000 

U 3467, 3470,3551,0505,4374,4007,0700,0000,0000,0040 



U '3470 , 2344 , 3333 , 0005 ,4174, 4237 , 0700 , 0000 , 0000 , 0000 
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7241 .TOC "10 -- INTERNAL DEVICES -- TIMER CONTROL" 

7242 

7243 

7244 ,-BEGIN [123] 

7245 TICK: [AR]_W0RK[TIME1 ] , ; GET LOW WORD 

7246 SPEC/CLRCLK ;CLEAR CLOCK FLAG 

7247 ; END [123] 

7248 TOCK: [BR]_0 XWD [10000] ;2~12 UNITS PER MS 

7249 [AR]_[AR]+[BR] INCREMENT THE TIMER 

7250 FIX [AR] SIGN, SKIP DPO ;SEE IF IT OVERFLOWED 

7251 =0 

7252 T0CK1: WORK [ TIME 1 ]_[ AR ] , ; STORE THE NEW TIME 

7253 J/T0CK2 ; SKIP OVER THE OVERFLOW CODE 

7254 [AR]_WORK[TIMEO.] ; GET HIGH WORD 

7255 =0* [AR]_[AR]+1, ; BUMP IT 

7256 CALL [WRTIM1] ; STORE BACK IN RAM 

7257 [AR]_0, ; CAUSE LOW WORD WORD 

7258 J/T0CK1 ; TO GET STORED 

7259 T0CK2: [ AR ]_WORK[TTG] 

7260 [AR]_[AR]-[BR] , ; COUNT DOWN TIME TO GO 

7261 SKIP AD.LE.O ;SEE IF IT TIMED OUT 

7262 =0 

7263 T0CK3: WORK [ TTG]_[ AR ] , ; SAVE NEW TIME TO GO 

7264 RETURN [2] ; ALL DONE 

7265 [AR]_WORK[ PERIOD] 

7266 [BR ]_APR ; GET CURRENT FLAGS 

7267 [BR ]_[BR ] . OR . # , #/40 ; SET TIMER INTERRUPT FLAG 

7268 READ [BR], ;PLACE ON DP AND 

7269 SPEC/APR FLAGS, ; LOAD INTO HARDWARE 

7270 J/T0CK3 ; ALL DONE 
7271 



T10KI .MCR[ 10, 1 141 ] 
IN0UT.MIC[ 10, 1 141 ] 



11:45 11 -AUG- 1984 
09: 17 27-JULY-1984 



MICRO 



U 1 774 , 347 1 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0004 , 0002 

U 3471 , 1044,3771 ,0003,4365,5007,0700,0200,0000,0002 

U 1044, 3563,01 1 1 ,0702,4170,4007,0700,0210,0004,0012 

U 1045, 3472,4551,0404,4370,4007,0700,0010,0077,0000 

U 1047 , 1 400 , 3333 , 0004 ,7174, 4007 , 0700 , 0400 , 0000 , 030 1 

U 3472, 0002,3333,0003,7174,4004,1700,0400,0000,0300 



U 1764, 3473,4451,1205,4324,4007,0700,0000,0000,0000 

U 3473, 3474,4451 , 1204,4324,4007,0700,0000,0000,0000 

U 3474, 3475,4451 , 1206,4324,4007,0700,0000,0000,0000 

U 3475, 2346,61 13,0405,4174,4007,0621 ,0000,0000,0000 

U 2346, 2347,3441,0604,4174,4007,0700,0000,0000,0000 

U 2347, 3476,3771,0005,7274,4007,0701,0000,0000,0300 

U 3476, 1050,0551 , 0404 , 7274 , 4007 , 067 1 , 0000 , 0000 , 0301 



U 1050, 3461,3771,0003,7274,4117,0700,0010,0000,0301 

U 1051, 3477,3333,0002,4174,4007,0700,0200,0003,0012 

U 1052 , 1 764 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3477 , 3500 , 3333 , 0005 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 

U 3500, 3501 ,01 1 1 ,0702,4170,4007,0700,0200,0003,0012 

U 3501 , 1400,3333,0004,4175,5007,0701 ,0200,0000,0002 
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10 -- INTERNAL DEVICES WRTIME & RDTIME 

7272 .TOC "10 INTERNAL DEVICES -- WRTIME & RDTIME" 
7273 

7274 1774: 

7275 WRTIME: START READ ; FETCH WORD AT E 

7276 MEM READ, ;WAIT FOR DATA 

7277 [AR]_MEM ; PUT WORD IN AR 

7278 =00 VMA_[HR]+1, ;BUMP E 

7279 START READ, ; START MEMORY 

7280 CALL [LOADARX] ; PUT DATA IN ARX 

7281 [ ARX ]_[ ARX ] . AND . # , ; CLEAR PART HELD IN 

7282 #/770000, ; HARDWARE COUNTER 

7283 HOLD LEFT, CALL [WRTIM1] 

7284 =11 W0RK[TIME1 ]_[ARX] , ; IN WORK SPACE 

7285 J/DONE ; NEXT INSTRUCTION 

7286 = 

7287 WRTIM1 : WORK [ TIMEO]_[ AR ] , ; SAVE THE NEW VALUE 

7288 RETURN [2] 
7289 

7290 1764: 

7291 RDTIME: [BR ]_TIME ; READ THE TIME 

7292 [ ARX ]_TIME ; AGAIN 

7293 [BRX ]_TIME ; AGAIN 

7294 [BR] .XOR. [ARX] , ;SEE IF STABLE 

7295 SKIP AD. EO.O ; . . 

7296 =0 [ARX]_[BRX] ;N0 THEN NEXT TRY MUST BE OK 

7297 [BR]_W0RK[TIMEO] 

7298 [ARX]_[ARX]+W0RK[TIME1 ] , ;COMBINE PARTS 

7299 SKIP/-1 MS ;SEE IF OVERFLOW HAPPENED 

7300 =00 SPEC/CLRCLK, ; CLEAR CLOCK FLAG 

7301 [AR]_W0RK[TIME1 ] , 2T , ; GET LOW WORD FOR TOCK 

7302 CALL [TOCK] ; UPDATE CLOCKS 

7303 READ [HR], LOAD VMA , ;DID NOT OVERFLOW 

7304 START WRITE, J/RDTIM1 ; STORE ANSWER 

7305 J/RDTIME ; TRY AGAIN 

7306 = 

7307 RDTIM1: MEM WRITE, MEM_[BR] 

7308 VMA_[HRJ+1, LOAD VMA, START WRITE 

7309 MEM WRITE, MEM__[ ARX] , J/DONE 
7310 



T10KI -MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 31(254) 

INOUT.MIC[ 10, 1141] 09:17 27-JULY-1984 
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U 1775, 3502,4443,0000,4174,4007,0700,0200,0004,0002 

U 3502, 3503,3771,0003,4365,5007,0700,0200,0000,0002 

U 3503, 3504,3333,0003,7174,4007,0700,0400,0000,0302 

U 3504 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0303 



U 1765, 3513,3771,0005,7274,4007,0701,0000,0000,0302 



7311 
7312 
7313 
7314 
7315 
7316 
7317 
7318 
7319 
7320 
7321 
7322 
7323 
7324 



.TOC 



1775: 
WRINT: 



1765: 
RDINT: 



"10 -- INTERNAL DEVICES 



START READ 

MEM READ, [ AR ]_MEM 

WORK[PERIOD]_[AR] 

WORK[TTG]_[AR] , 

J/DONE 



[BR]_WORK[PERIOD] . 
J/RTNREG 



WRINT & RDINT' 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 



U 1715, 3513,3441,1405,4174,4007,0700,0000,0000,0000 



U 1714 
U 2350 
U 2351 
U 2352 
U 2353 
U 3505 
U 3506 
U 2354 
U 2355 
U 2356 
U 2357 
U 2360 
U 2361 
U 2362 
U 2363 
U 2364 
U 2365 
U 0304 
U 0305 



2350, 
2351 , 
2352, 
2621 , 
3505, 
3506, 
2354, 
2355, 
2356, 
2357, 
2360, 
2361 , 
2362, 
2363, 
2364, 
2365, 
0304, 
0305, 
3510, 



4553, 
4221 . 
4553. 
4551 , 
4551 , 
3770. 
4553, 
5111, 
4553, 
3111, 
4553, 
3551 , 
4553, 
5551 . 
4553. 
3111. 
4553. 
5111. 
3770, 



0300, 
0014, 
0300, 
0202, 
0305, 
0505, 
0300, 
0514, 
0300, 
0514, 
0300, 
1414, 
0300, 
1414, 
0300, 
0514, 
0300, 
0514, 
1416, 



4374, 
4174, 
4374, 
4374, 
4374, 
4344, 
4374, 
4174, 
4374, 
4174, 
4374. 
4370, 
4374, 
4370. 
4374, 
4170. 
4374, 
4170, 
4344, 



4007 
4007 
4007 
0007 
4007 
0007 
4007 
0007 
4007 
0007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 



,0331 , 
,0700, 
,0331 , 
,0700, 
, 0700 , 
,0700, 
,0331 , 
,0700, 
,0331 , 
,0700, 
,0331 , 
,0700, 
,0331 , 
,0700, 
,0331 , 
,0700, 
,0331 , 
,0700, 
,0700, 



0000, 
0000, 
0000, 
0000. 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000. 
0000, 
0000, 
0000. 
0000, 
0000. 
0000, 
0000, 
0010 



0001 ,0000 
0000 , 0000 
0074,0000 
0077,7740 
0000,0177 
0000,0000 
0002 , 0000 
0000,0000 
0000 , 4000 
0000,0000 
0000 , 0200 
0000,0200 
0000 , 0400 
0000,0200 
0000,2000 
0000,0000 
0000, 1000 
0000,0000 
0000,0000 



U 0315, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



U 3507, 3510,3770, 1416,4344,4007,0700,0000,0000,0000 

U 35 1 O , 3511, 244 1 , 07 1 6 , 4 1 70 , 4007 , 0700 , 4000 , OOOO , 0000 

U 3511, 3512,4111,1416,4174,4007,0700,0000,0000,0000 

U 3512, 0010,7443, 1600,4174,4434, 1700,0000,0000,0000 



M(254) 



7325 
7326 
7327 
7328 
7329 
7330 
7331 
7332 
7333 
7334 
7335 
7336 
7337 
7338 
7339 
7340 
7341 
7342 
7343 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 
7352 
7353 
7354 
7355 
7356 
7357 
7358 
7359 
7360 
7361 
7362 
7363 
7364 
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.TOC 

1715: 
RDPI : 

1714: 
WRPI : 
=0 



=0 



=0 



=0 



=0 

=0**0 

PIEXI 
= 1**1 



"10 INTERNAL DEVICES 



[BR]_[PI], J/RTNREG 



RDPI & WRPI" 



TR [ 
[PI] 
TR [ 
UUO 
[BR] 
[BR] 
TR [ 
[PI] 
TR [ 
[PI] 
TR [ 
[PI] 
TR [ 
[PI] 
TR [ 
[PI] 
TR [ 
[PI] 
T: CALL 

DONE 



AR], PI.CLR/1 
_0 

AR], PI.MBZ/17 

_[AR] .AND.#,#/177 
_[BR] SWAP, HOLD RIGHT 
AR], PI.DIR/1 

|_[PI].AND.NOT.[BR], HOLD RIGHT 
AR], PI.REQ/1 
_[PI].OR.[BR], HOLD RIGHT 
AR], PI.TSN/1 

_[PI].0R.#,PI.0N/1, HOLD LEFT 
AR], PI.TSF/1 

_[PI].AND.N0T.#,PI.0N/1, HOLD LEFT 
AR], PI.TCN/1 
_[PI ] . OR . [BR] , HOLD LEFT 
AR], PI.TCF/1 
[PI] .AND. NOT. [BR] , HOLD LEFT 
LOAD PI 



; SUBROUTINE TO LOAD PI HARDWARE 

; CALL WITH: 

; CALL LOAD PI 

; RETURNS 10 WITH PI HARDWARE LOADED 



LOADPI: [TO]_[PI] SWAP 
LDPI2: [T0]_-1, HOLD LEFT 
[T0]_[T0J.AND.[PI] 
.NOT. [TO] , LOAD PI , 
RETURN [10] 



PUT ACTIVE CHANS IN LH 
DONT MASK RH 

ONLY REQUEST CHANS THAT ARE ON 
RELOAD HARDWARE 
RETURN TO CALLER 



; T10KI.MCR[ 10, 1141] 11:45 11-AUG-1984 MICRO 31(254) KS 10 MICROCODE V124, 27-JUL-84 Page v 203 

; INOUT.MICf 10, 1141] 09:17 27-JULY-1984 10 INTERNAL DEVICES SUBROUTINES 



U 3513, 3514,3443,0300,4174,4007,0700,0200,0003,0012 
U 3514, 1400,3333,0005,4175,5007,0701,0200,0000,0002 



7365 .TOC "10 -- INTERNAL DEVICES -- SUBROUTINES" 

7366 

7367 

7368 ; HERE WITH SOMETHING IN BR STORE IT @AR 

7369 RTNREG: VMA_[AR], START WRITE 

7370 MEM WRITE, MEM_[BR], J/DONE 
7371 



T10KI .MCR[ 10, 1 141 ] 
IN0UT.MIC[ 10, 1 141 ] 



11:45 11-AUG-1984 
09: 17 27-JULY-1984 



MICRO 





u 


1722, 


3515,3443,0300,4174,4147,0700,0200,0000,0010 




u 


3515, 


2366 ,4221, 0003 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 




u 


2366, 


3521,3771, 0003 , 4374 , 4007 , 0700 , 00 10 , 0037 ,7377 




u 


2367 


3516 3771 OOOR 4174 4947 0700 OOOO OOOO 1001 




u 


3516! 


2370,3333, 0003 ,4174,4247, 0700 , 0000 , 0000 , 1 000 


3-7881 


u 


2370, 


2370, 1111 ,0503,4174,4247,0630,6000,0060, 1000 


z 

i- 

Q 


u 


2371 , 


2375 , 3333 , 0003 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 


1 
1 


u 


2372, 


352 1,3771, 0003 , 4374 , 4007 , 0700 , 0010 , 0037 , 7377 




u 


2373, 


3517,3771, 0005 , 4374 , 4347 , 0700 , 0000 , 0000 , 100 1 


| 

I 


u 


3517, 


2374,3333, 0003 ,4174,4347, 0700 , 0000 , 0000 , 1000 


Services Elect 


u 


2374, 


2374, 1111 ,0503,4174,4347,0630,6000,0060, 1000 


mation 


u 


2375, 


3520 , 4223 , 0000 ,7174, 4007 , 0700 , 0400 , 0000 , 0424 


meed Infor 


u 


3520, 


1 400 , 4 2 2 3 , 0000 , 7 1 74 , 4007 , 0700 , 0400 , 0000 , 04 2 3 


3 
< 


u 


3521 , 


0001 ,4443,0000,4174,4004, 1700,2000,0071 ,0375 
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; 7372 ; CACHE SWEEP 
; 7373 

; 7374 1722: 

; 7375 CLRPT: VMA_[AR], ; PUT CORRECT ADDRESS IN VMA 

; 7376 LOAD PAGE TABLE ; GET SET TO WRITE PAGE TABLE 

; 7377 [AR]_0 ; CLEAR ENTRY 

; 7378 =0 [ AR ]_# , #/377377 , ; INITIAL VMA VALUE 

; 7379 CALL [SSWEEP] ; LOAD THE SC 

; 7380 [BR]J, 0/1001, ; CONSTANT TO KEEP ADDING 

; 7381 CLRCSH ; START TO CLEAR CACHE 

; 7382 READ [AR], CLRCSH ; FIRST THING TO CLEAR 

7383 =o 

;' 7384 CLRPTL: [ AR ]_[ AR ] - [ BR ] , ; UPDATE AR (AND PUT ON DP) 

; 7385 CLRCSH, ; SWEEP ON NEXT STEP 

; 7386 STEP SC , ;SKIP IF WE ARE DONE 

; 7387 J/CLRPTL ; LOOP FOR ALL ENTRIES 

; 7388 READ [AR], J/ZAPPTA ; CLEAR LAST ENTRY 

; 7389 

; 7390 =0 

; 7391 SWEEP: [ AR ]_0 , 0/377377 , ;INITIAL VMA VALUE 

; 7392 CALL [SSWEEP] ; LOAD NUMBER OF STEPS INTO SC 

; 7393 [BR]JF, 0/1001, ; CONSTANT TO KEEP ADDING 

; 7394 SWEEP ; START SWEEP 

; 7395 READ [AR], SWEEP ; FIRST THING TO CLEAR 

; 7396 =0 

; 7397 SWEEPL: [ AR ]_[ AR ] - [BR ] , ; UPDATE AR (AND PUT ON DP) 

; 7398 SWEEP, ; SWEEP ON NEXT STEP 

; 7399 STEP SC , ;SKIP IF WE ARE DONE 

; 7400 J/SWEEPL ; LOOP FOR ALL ENTRIES 

; 7401 ; CLEAR LAST ENTRY AND 

; 7402 ZAPPTA: WORK[PTA .U]_0 ; FORGET PAGE TABLE ADDRESS 

; 7403 WORK[PTA. E]_0, ; FORGET PAGE TABLE ADDRESS 

; 7404 J/DONE ; ALL DONE 

; 7405 

; 7406 SSWEEP: SC_S0, S0/375, ; NUMBER OF STEPS 

; 7407 RETURN [1] ; RETURN 
; 7408 



; T10KI .MCRf 10, 1141] 11:45 11-AUG-1984 MICRO 
; INOUT.MICt 10, 1 141 ] 09 : 1 7 27- JULY- 1984 



U 0770, 
U 0771 , 
U 0772, 
U 0773, 
U 0774, 
U 0775, 
U 0776, 
U 0777, 
U 3522, 
U 3523, 
U 3524, 
U 3525, 
U 3526, 
U 3527, 
U 3530, 



0770, 
3522, 
3523, 
3524, 
3525, 
3526, 
3527, 
3530, 
3531 , 
3531 , 
3531, 
3531 , 
3531, 
3531 , 
3531 , 



3773. 
3551 , 
3551 , 
3551 , 
3551 , 
3551 , 
3551 , 
3551 , 
4751 , 
4751 , 
4751 , 
4751 , 
4751 , 
4751 , 
4751 , 



0000, 
1414. 
1414. 
1414, 
1414, 
1414, 
1414, 
1414, 
1206, 
1 206 , 
1206, 
1206, 
1206, 
1206, 
1206, 



4074, 
4370, 
4370, 
4370, 
4370, 
4370, 
4370, 
4370, 
4374, 
4374, 
4374, 
4374, 
4374, 
4374, 
4374, 



4003 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 



, 1701 . 
,0700, 
,0700, 
, 0700 . 
,0700, 
, 0700 , 
,0700, 
0700, 
0700, 
0700, 
0700, 
0700, 
0700, 
0700, 
0700, 



0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 



0000, 
0004. 
0002. 
0001 , 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 



0000 
0000 
0000 
0000 
4000 
2000 
1000 
0400 
0001 
0002 
0003 
0004 
0005 
0006 
0007 



U 3531 , 
U 3532, 
U 3533, 



3532 , 425 1 , 1 403 , 4374 , 4007 , 0700 , 0000 , 0007 , 7577 
3533 , 7443 , 0300-, 4174,4437, 0700 , 0000 , 0000 , 0000 
2376,4223, 0000 , 4364 , 4277 , 0700 , 0200 , 0000 , 00 10 



U 2376, 3570,4571,1203,4374,4007,0700,0010,0024,1300 



U 2377, 2400,3771,0003,4364,4007,0331,0200,0000,0002 

U 2400, 3542,4221,0004,4174,4007,0700,0000,0000,0000 

U 2401, 3534,3445,0603,4174,4007,0700,0000,0000,0000 

U 3534, 3535,0551,0303,4370,4007,0701,0000,0000,0040 

U 3535, 3536,0111,1003,4174,4007,0700,0000,0000,0000 



1(254) 



KS10 MICROCODE V124, 27-JUL-84 Page 205 
10 INTERNAL DEVICES -- SUBROUTINES 



7409 ;WE COME HERE EITHER FROM NEXT INSTRUCTION DISPATCH OR PAGE FAIL 

7410 ; LOGIC. IN ALL CASES, THE CURRENT INSTRUCTION IS CORRECTLY SETUP 

7411 ; TO RESTART PROPERLY. 
7412 

7413 ; FIRST SET THE CORRECT PI IN PROGRESS BIT 

7414 ; [FLG]_[FLG].0R.#,FLG.PI/1, HOLD RIGHT, 

7415 ; J/PI ;SET PI CYCLE AND PROCESS PI 

7416 =1000 

7417 PI: AD/D, DBUS/PI NEW, ; LOOK AT NEW LEVEL 

7418 DISP/DP LEFT, 3T, ;DISPATCH ON IT 

7419 J/PI ;G0 TO 1 OF NEXT 7 PLACES 

7420 =1001 [PI]_[PI] -0R.#, #/040000, HOLD LEFT, J/PIP1 

7421 =1010 [PIJ_[PI J.OR.0, #/020000, HOLD LEFT, J/PIP2 

7422 =1011 [PI]_[PI].OR.#, 0/010000, HOLD LEFT, J/PIP3 

7423 =1100 [PI]_[PI] .0R.#, #/004000, HOLD LEFT, U/PIP4 

7424 =1101 [PI]_[PI] .0R.#, #/002000, HOLD LEFT, J/PIP5 

7425 =1110 [PIJ_[PI].OR.#, #/001000, HOLD LEFT, J/PIP6 

7426 =1111 [PI]_[PIJ .0R.#, #/000400, HOLD LEFT, J/PIP7 

7427 PIP1: [BRX]_0 XWD [1], J/PI 10 ; R£ MEMBER WE ARE AT LEVEL 1 

7428 PIP2: [BRX]_0 XWD [2], J/PI 10 ; REMEMBER WE ARE AT LEVEL 2 

7429 PIP3: [BRX]_0 XWD [3], J/PI 10 ; REMEMBER WE ARE AT LEVEL 3 

7430 PIP4: [BRX]__0 XWD [4], J/PI 10 ; REMEMBER WE ARE AT LEVEL 4 

7431 PIPS: [BRX]__0 XWD [5], J/PI 10 ; REMEMBER WE ARE AT LEVEL 5 

7432 PIP6: [BRX]_0 XWD [6], J/PI10 ; REMEMBER WE ARE AT LEVEL . 6 

7433 PIP7: [BRX]_0 XWD [7], J/PI10 ; REMEMBER WE ARE AT LEVEL 7 
7434 

7435 PI10: [ AR ]_[ PI ] . AND . # CLR LH, ; TURN OFF PI SYSTEM 

7436 #/077577 ; TILL WE ARE DONE 

7437 . NOT . [ AR ] , LOAD PI ; 

7438 ABORT MEM CYCLE ;N0 MORE TRAPS 

7439 =0 [ AR ]_VMA 10 READ, ; SETUP TO READ WRU BITS 

7440 WRU CYCLE/ 1 , ■ ; . . 

7441 CALL [STRTIO] ; START THE CYCLE 

7442 MEM READ, ;WAIT FOR DATA 

7443 [AR]_IO DATA, 3T, ; PUT DATA IN AR 

7444 SKIP ADR.EQ.O ;SEE IF ANYONE THERE 

7445 =0 [ARX]_0, J/VECINT ; YES- -VECTORED INTERRUPT 

7446 [AR]_JBRX]*2 * ;N*2 

7447 [AR]_[AR]+#, #/40, 3T , ; 2*N+40 

7448 HOLD LEFT ; . . 

7449 [AR]_JAR] + [EBR] , ; ABSOULTE ADDRESS OF 

7450 J/PI40 ; INTERRUPT INSTRUCTION 
7451 



o 

; T10KI „MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
; INOUT.MIC[ 10, 1141] 09:17 27-JULY-1984 



U 3536, 3537,3443,0300,4174,4007,0700,0200,0024, 1016 

U 3537, 3540,3771,0003,4365,5007,0701,0200,0020,0012 

U 3540, 2402,6553,0300,4374,4007,0321,0000,0025,4340 

U 2402, 2404,6553,0300,4374,4007,0321,0000,0026,4000 

U 2403 , 354 1,4521,1 205 , 4074 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3541, 0020,4223,0000,4174,4467,0700,0000,0000,0004 



U 2404, 
U 2405, 



0104 , 475 1,1217, 4374 , 4007 , 0700 , 0000 , 0000 ,0101 
0470 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0023 , 0002 



U 0470, 3571,3741,0105,4074,4007,0700,0010,0000,0000 
GS 

U 0474 , 3566 ,3771, 0003 , 4374 , 0007 , 0700 , 00 10 , 0000 , 0000 

U 0475, 2576,3441,0301,4174,4467,0700,0000,0000,0004 



31(254) 



7452 
7453 
7454 
7455 
7456 
7457 
7458 
7459 
7460 
7461 
7462 
7463 
7464 
7465 
7466 
7467 
7468 
7469 
7470 
7471 
7472 
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; HERE WITH ABSOLUTE ADDRESS OF INTERRUPT INSTRUCTION IN [AR] 

FETCH THE INSTRUCTION 
FETCH INSTRUCTION 
E IS EXEC MODE 
ADL. EQ.O 

EQ.O, 3T, J/PIJSR 
;SAVE FLAGS 



PI40 
PI50 



=0 



VMA_[ AR ] , VMA PHYSICAL READ 
MEM READ, [ AR ]_MEM , LOAD VMA 
3T, FORCE EXEC 
[AR] .XOR.#, #/254340 
[ AR] .XOR . # , #/264000 
[BR ]_FLAGS 

AD/ZERO, LOAD FLAGS, 
J/PIXPCW 



3T S SKIP 
SKIP ADL. 



IF WE 



=0 

PIJSR: 
=0*0 
= 1*0 



HALT HERE ON A VECTORED INTERRUPT, WE 
TO/ WHAT WE READ FROM BUS AS VECTOR 
ARX/ EPT+ 100+DEVICE 

BR/ ADDRESS OF ILLEGAL INSTRUCTION 
BRX/ VECTOR (MASKED AND SHIFTED) 



ENTER EXEC MODE AND ASSUME 
WE HAVE AN XPCW 
HAVE 



HALT [ILLII] 
START WRITE, 
[BR]_PC WITH 
CALL [STOBR] 
[AR] #, #/0, 



FORCE EXEC 
FLAGS, 

HOLD RIGHT, 



NOT A JSR OR XPCW 
PREPARE TO STORE OLD PC 
OLD PC 

STORE OLD PC 

; PREPARE TO CLEAR 



FL 



7473 
7474 
7475 
7476 
7477 
7478 



CALL [INCAR] 
=1*1 [PC]_[AR], LOAD FLAGS, 

J/PISET 



BUMP POINTER 
NEW PC 

CLEAR PI CYCLE & START 
INTERRUPT PROGRAM 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

I.NOUT.MICf 10, 1 141 ] 09:17 27-dULY- 1984 



U 3542, 2406,3445,0303,4174,4007,0530,0000,0000,0000 

U 2406, 3542,0111,1504,4174,4007,0700,0000,0000,0000 

U 2407, 2410,4571,1203,4374,4007,0700,0000,0024,1240 

U 2410, 3570,31 1 1 ,0403,4174,4007,0700,0010,0000,0000 

U 2411, 2412,3771,0016,4364,4007,0700,0200,0000,0002 

U 2412, 3565,0551,1005,4374,4007,0701,0010,0000,0100 

U 2413, 3543,01 1 1 ,0504,4174,4007,0700,0200,0024, 1016 

U 3543, 2414,3771 ,0005,4365,5007,0331 ,0200,0000,0002 

U 2414, 3544,4557,1606,4374,4007,0701,0000,0000,0774 
U 2415, 0104,4751,1217,4374,4007,0700,0000,0000,0102 
U 3544, 3545,3447,0606,4174,4007,0700,0000,0000,0000 

U 3545, 3537,0111,0605,4174,4007,0700,0200,0024,0012 
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7479 ; HERE TO PROCESS A VECTORED INTERRUPT. AT THIS POINT: 

7480 ; AR/ WRU BITS (BIT 18 FOR DEVICE O) 

7481 ; ARX/ O 

7482 VECINT: [AR]_[AR]*2, -.SHIFT LEFT (UNSHIFTED ON DP) 

7483 SKIP DP18 ; ANYONE THERE? 

7484 =0 [ARX]_[ARX]+[XWD1] , ;NO--BUMP BOTH HALVES 

7485 J/VECINT ; KEEP LOOKING 

7486 [AR]_VMA 10 READ, ; SETUP FOR VECTOR CYCLE 

7487 VECTOR CYCLE/ 1 ; .. 

7488 =0 [AR]_[AR]„OR. [ARX] , ; PUT IN UNIT NUMBER 

7489 CALL [STRTIO] ; START CYCLE 

7490 MEM READ, ;WAIT FOR VECTOR (SEE DPM5) 

7491 [TO]_IO DATA ; GET VECTOR 

7492 =0 [BR]_[EBR]+#, 3T , #/100, ;EPT+100 

7493 . CALL [CLARXL ] ; CLEAR ARX LEFT 

7494 [ARX]_[ARX]+[BR] , ; EPT+ 100+DEVICE 

7495 VMA PHYSICAL READ ; FETCH WORD 

7496 MEM READ, [BR ]_MEM, 3T, ; GET POINTER 

7497 SKIP ADR.EQ.O ;SEE IF NON-ZERO 

7498 =0 [BRX J_( [ TO] . AND . # ) * . 5 , 3T , ; OK- -MAKE VECTOR MOD 400 

7499 #/774, J/VECIN1 ; AND SHIFT OVER 

7500 HALT [ILLINT] 

7501 VECIN1: [BRX]_[BRX]* . 5 ;SHIFT 1 MORE PLACE 

7502 [BR]_[BR]+[BRX], ; ADDRESS OF WORD TO USE 

7503 LOAD VMA, FORCE EXEC, ; FORCE EXEC VIRTUAL ADDRESS 

7504 START READ, J/PI50 ; GO GET INSTRUCTION 
7505 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

INOUT.MICf 10, 1141] 09:17 27-JULY-1984 



U 2416, 3546 ,3771, 0005 , 4374 , 4007 , 0700 , 0000 , 0004 , 0000 

U 2417, 0004,4443,0000,4174,4004,1700,0000,0000,0000 

U 3546, 2420,4113,0514,4174,4007,0330,0000,0000,0000 

U 2420, 0004,5111,0514,4170,4004,1700,0000,0000,0000 

U 2421, 3546 , 3447 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



254) KS10 MICROCODE V124, 27-JUL-84 Page 208 
PRIORITY INTERRUPTS DISMISS SUBROUTINE 

7506 .TOC "PRIORITY INTERRUPTS -- DISMISS SUBROUTINE" 

7507 

7508 SUBROUTINE TO DISMISS THE HIGHEST PI IN PROGRESS 

7509 ; RETURNS 4 ALWAYS 
7510 

7511 ;DISMISS: 

7512 ; TR [PI], #/077400 ; ANY PI IN PROGRESS? 

7513 =0 

7514 JEN1: [BR]_#, PI.IP1/1, J/DSMS 1 ; YES- -START LOOP 

7515 RETURN [4] ;NO--JUST RETURN 
7516 

7517 DSMS1: [ PI ] . AND . [BR ] , SKIP ADR. EQ.O 

7518 =0 [PI]_[PI].AND.NOT.[BR], HOLD LEFT, RETURN [4] 

7519 [BR]_[BR]*.5, J/DSMS 1 
7520 



T10KI .MCR[ 10, 1 141] 11:45 11-AUG-1984 MICRO 
INOUT.MICC 10, 1 141 ] 09:17 27-JULY-1984 



D 0710, 1210, 1614,0100 

D 071 1 , 1214, 1614,0100 

D 0720, 1200,1614,0100 

D 0721 , 1204, 1614,0100 



U 1614, 2422,4443, 0000 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 
U 1617, 0014,4551,0305,0274,4003,7700,0000,0000,0000 



D 0712, 1210,1460,0100 

D 0713, 1210, 1461 ,0100 

D 0722, 1200,1460,0100 

D 0723, 1200, 1461 ,0100 



U 1460, 2422,4443, 0000 ,4174, 4007 , 0700 , 00 1 , 0000 , 0000 
U. 1 463 , 1 400 , 3440 , 0303 ,0174 ;4007 , 0700 , 0400 , 0000 , 0000 



U 1461, 2432,3771,0005,0276,6007,0700,0000,0000,0000 



D 0714, 1210, 1644,0100 

D 0715, 1214, 1644,0100 

D 0724, 1200,1644,0100 

D 0725, 1204,1644,0100 



U 1644 , 2422 , 344 1 , 0306 , 4 1 74 , 4007 , 0700 , 00 1 O , 0000 , 0000 

U 1 647 , 1013,3441, 0305 ,4174, 4003 , 7700 , 0000 , 0000 , 0000 

U 1013, 3547 , 355 1 , 0505 , 0274 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1017, 3547,5551,0505,0274,4007,0700,0000,0000,0000 

U 3547, 2432,3441,0603,4174,4007,0700,0000,0000,0000 
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752 1 


.TOC 


"EXTERNAL 10 INSTRUCTIONS" 


7522 












7523 






nrnn f 

. UuUU C 






7524 


710 




TflT U/nPD-TNF 


J/TIOX 


7525 


711 




TnT wnpn - TWM 


J/TIOX 


7CQC 


720 




TOT TMC 
i U 1 , 1 Nt , 


J/TIOX 


7C07 


721 




TOT TMM 

IUI , 1 NN , 


J/TIOX 


7COQ 






i ipnncr 

. uuuut 






7COQ 












/ UOU 


1614 








753 1 


TIOX 


PA i i r t npn 1 






7532 


1617 


r op 1 r API AMD AC TF^T 


DISP 


7533 


















nrnnF 






7535 


712 




TnT r / -in 


J/RDIO 


7536 


713 




TnT R/in 

1 U I , D/ Iw, 


d/WRIO 


7537 


722 






J/RDIO 


7538 


723 




JOT B/0, 


J/WRIO 


7539 






i irnn f 






7540 












754 1 


1460 








7542 


RDIO 


tALL I iUKU J 






7543 


1463 


ap TARl iJ/DONE 






7544 












7545 


1461 








7546 


WRIO 








7R47 


















. DC0DE 






7 Kyi O 


714 




IOT, B/10, 


J/BIXUB 


7CCA 


715 




IOT, B/14, 


J/BIXUB 


7CC A 

I uo i 


724 




IOT, B/0, 


J/BIXUB 


7CCO 
/ JJi 


725 




IOT, B/4, 


J/BIXUB 


•7553 






.UCODE 






7554 












7555 


1644 








7556 


BIXUB: [BRX] [AR], 




SAVE EFFECTIVE ADDRESS 


7557 






CALL [IORD] 




GO GET THE DATA 


7558 


1647 


[BR] [AR], 




COPY DATA ITEM 


7559 






B DISP 




SEE IF SET OR CLEAR 


7560 


=1011 [BR] [BR]. OR. AC, 




SET BITS 


7561 






J/BIXUB 1 




GO DO WRITE 


7562 






[BR] [BR] .AND. NOT. AC, 




CLEAR BITS 


7563 






J/BIXUB1 




GO DO WRITE 


7564 












7565 


BIXUB 1 : [AR] [BRX], 


; RESTORE ADDRESS 


7566 






J/IOWR 






7567 













T10KI .MCR[ 10, 1141] 11:45 11-AUG-1984 
IN0UT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 



MICRO 



U 2422 , 2442 , 4443 , 0000 ,4174,4137, 0700 , 00 1 , 0000 , 0000 
U 2423, 0067,4443,0000,4174,4003,7700,0000,0000,0000 



U 0067, 2424,4571 , 1205,4374,4007,0700,0000,0024, 1220 
U 0077, 2424,4571 , 1205,4374,4007,0700,0000,0024, 1200 



U 2424, 3560,31 13,0305,4174,4007,0701 ,0210,0000,0036 



U 2425 , 1027 , 377 1 , 0005 , 4364 , 4003 , 7700 , 0200 , 0000 , 0002 
U 1027, 2426,4553,0300,4374,4007,0331,0000,0000,0001 
U 1037, 0003,3441,0503,4174,4004,1700,0000,0000,0000 



U 2426, 2430,3447,0505,4174,4007,0700,2000,0071,0005 
U 2427, 0003,4551,0503,4374,4004,1700,0000,0000,0377 



U 2430, 2430,3447,0505,4174,4007,0630,2000,0060,0000 
U 2431, 0003,4551,0503,4374,4004,1700,0000,0000,0377 



254) 
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7568 
7569 
7570 
7571 
7572 
7573 
7574 
7575 
7576 
7577 
7578 
7579 
7580 
7581 
7582 
7583 
7584 
7585 
7586 
7587 
7588 
7589 
7590 
7591 
7592 
7593 
7594 
7595 
7596 
7597 
7598 
7599 
7600 
7601 
7602 
7603 
7604 



SUBROUTINE TO READ FROM AN 10 DEVICE 
CALL WITH: 

SECTION O EFFECTIVE ADDRESS IN AR 

INSTRUCTION IN HR 
RETURN 3 WITH WORD OR BYTE IN AR 



=0 

I0RD: 



= 101 1 1 



=11111 
=0 

I0RD1 : 



=01 1 1 



CLR 10 BUSY, 
CALL [IOEA] 
B DISP 

[BR ]_VMA 10 READ, 
10 BYTE/1 , 
J/I0RD1 

[BR ]_VMA 10 READ 



; CLEAR BUSY 

; COMPUTE 10 EA 

; BYTE MODE 
;SET BYTE FLAG 
;G0 DO C/A CYCLE 
;WORD MODE 



VMA_[AR] .OR. [BR] WITH FLAGS, 



CALL [IOWAIT] 
MEM READ, 
[BR]_IO DATA, 
B DISP 

TR [AR], #/1, J/I0RD2 
[ AR ]_[BR ] , RETURN [3] 



; HERE ON WORD MODE 
=0 

I0RD2: [BR]_[BR]*.5, SC__5 , 
J/I0RD3 

[ AR ]_[BR ] . AND . # , 
#/377, RETURN [3] 



WAIT FOR THINGS COMPLETE 
MAKE SURE REALLY READY 
PUT DATA IN BR 
SEE IF BYTE MODE 
BYTE MODE SEE IF ODD 
ALL DONE 



LEFT BYTE 
GO SHIFT IT 
MASK IT 
ALL DONE 



=0 

I0RD3: 



[BR]_[BR]*.5, 
STEP SC, J/I0RD3 
[ AR ]_[ BR ] . AND . # , 
#/377, RETURN [3] 



SHIFT OVER 

MASK IT 
ALL DONE 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
INOUT.MIC[ 10, 1 141 ] 09:17 27- JULY- 1984 



U 2432, 2442,4443,0000,4174,4137,0700,0010,0000,0000 

U 2433 , 0227 , 4443 , 0000, 4 1 74 , 4003 , 7700, 0000 , 0000, 0000 

U 0227, 2436,4553,0300,4374,4007,0331,0000,0000,0001 

U 0237 , 3550 ,4571,1 204 , 4374 , 4007 , 0700 , 0000 , 002 1 , 1 200 

U 3550, 2434,3113,0304,4174,4007,0701,0200,0000,0036 

U 2434, 3560,3333,0005,4175,5007,0701,0210,0000,0002 

U 2435, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



U 2436, 2440,3445,0505,4174,4007,0700,2000,0071,0005 

U 2437, 3550,4571,1204,4374,4007,0700,0000,0021,1220 

U 2440, 2440,3445,0505,4174,4007,0630,2000,0060,0000 

U 2441, 3550,4571,1204,4374,4007,0700,0000,0021,1220 
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7605 ; ROUTINE TO WRITE TO AN 10 DEVICE 

7606 ; CALL WITH: 

7607 ; SECTION O EFFECTIVE ADDRESS IN AR 

7608 ; INSTRUCTION IN HR 

7609 ; WORD OR BYTE IN BR 

7610 ; RETURNS BACK TO USER 

7611 ; 

7612 =0 

7613 IOWR: CLR 10 BUSY, ; CLEAR BUSY 

7614 CALL [IOEA] ;COMPUTE 10 EA 

7615 B DISP 

7616 =10111 TR [AR], #/1, J/I0WR2 ; BYTE MODE 

7617 =11111 [ARX]_VMA 10 WRITE ;SETUP FLAGS 

7618 = 

7619 I0WR1: VMA_[ AR ] . OR . [ ARX ] WITH FLAGS 

7620 =0 MEM WRITE , MEM_[BR], ;SEND DATA 

7621 CALL [IOWAIT] ;WAIT FOR DATA 

7622 DONE ; RETURN 
7623 

7624 ; HERE FOR BYTE MODE 

7625 =0 

7626 I0WR2: [BR]_[BR]*2, SC_5 , ;ODD--MOVE LEFT 

7627 J/I0WR3 ; . . 

7628 [ARX]_VMA 10 WRITE, ; SETUP FLAGS 

7629 10 BYTE/1, J/I0WR1 ; 
7630 

7631 =0 

7632 I0WR3: [BR]_[BR]*2, STEP SC , ;SHIFT LEFT 

7633 J/I0WR3 ; KEEP SHIFTING 

7634 [ARX]_VMA 10 WRITE, ; SETUP FLAGS 

7635 10 BYTE/1, J/I0WR1 ; 
7636 



T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 
INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 



U 2442, 3562,1113,0701,4170,4007,0700,4210,0004,0012 

U 2443, 3551,7441,0306,4174,4007,0700,0000,0000,0000 

U 3551, 2444,4553,0600,4374,4007,0321,0000,0070,0000 

U 2444 , 2446 , 4553 , 0200 , 4374 , 4007 , 032 1 , 0000 , 0000 , 0020 

U 2445, 2444,4713, 1203,7174,4OO7,070O,0400,0000,0422 

U 2446, 3552,3771,0003,7274,4007,0701,0000,0000,0422 

U 2447 , 1055 , 4443 , 0000, 2 174 , 4006 , 6700, 0000, 0000, 0000 

U 1055 , 2452 ,3771, 0004 , 2274 , 4007 , O 1 20 , 0000 , 0000 , 0000 

U 1057, 0001,3771,0003,7274,4124,1701,0000,0000,0422 



U 3552 , 3553 , 3333 , 0002 ,4174,4217, 0700 , 0000 , 0000 , 0000 

U 3553, 2450,4553,0200,4374,4007,0321,0000,0000,0017 

U 2450, 2451,0551,0303,2270,4007,0701,0000,0000,0000 

U 245 1 , 3554 , 3443 , 0300 , 4 1 74 , 4007 , 0700 , 0200 , 0004 , 00 1 2 

U 3554, 0001 ,3771 ,0003,4365,5124, 1700,0200,0000,0002 



U 2452, 0001,0551,0403,7274,4124,1701,0000,0000,0422 
U 2453, 3555,0551,0403,7274,4007,0701,0000,0000,0422 

U 3555, 0001,4221,0003,4174,0124,1700,0000,0000,0000 
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7637 ; HERE TO COMPUTE 10 EFFECTIVE ADDRESS 

7638 ; CALL WITH: 

7639 ; SECTION EFFECTIVE ADDRESS IN AR 

7640 ; INSTRUCTION IN HR 

7641 ; RETURN 1 WITH EA IN AR 

7642 ; 

7643 =0 

7644 IOEA: VMA_[PC]-1, ; GET INSTRUCTION 

7645 START READ, ; . . 

7646 CALL [LOADAR] ;PUT WORD IN AR 

7647 [BRX]_.NOT. [AR] ;SEE IF IN RANGE 700-777 

7648 TL [BRX], 0/700000 ; .. 

7649 =0 

7650 I0EA1: TL [HR], 0/20, J/I0EA2 ; INDIRECT? 

7651 WORK[YSAVE]_[AR] CLR LH, ; DIRECT 10 INSTRUCTION 

7652 J/I0EA1 ;SAVE Y FOR EA CALCULATION 

7653 =0 

7654 I0EA2: [AR]_WORK[ YSAVE] , ;@--GET SAVED Y 

7655 J/IOEAI ; GET Y AND GO 

7656 EA MODE DISP ;WAS THERE INDEXING? 

7657 =1101 [ARX]_XR, SKIP ADL.LE.O, ;SEE IF LOCAL OR GLOBAL INDEXING 

7658 2T, J/IOEAX ; .. 

7659 [AR]__WORK[YSAVE] , ; JUST PLAIN 10 

7660 CLR 10 LATCH, RETURN [1] 
7661 

7662 IOEAI: READ [HR], DBUS/DP, ; LOAD XR FLOPS IN CASE 

7663 LOAD INST EA ; THERE IS INDEXING 

7664 TL [HR], 0/17 ;WAS THERE ALSO INDEXING 

7665 =0 [AR]_[AR]+XR, 3T , HOLD LEFT ; YES- -ADD IN INDEX VALUE 

7666 VMA_[AR], START READ ; FETCH DATA WORD 

7667 MEM READ, [AR]_MEM, ; GO GET DATA WORD 

7668 CLR 10 LATCH, RETURN [1] 
7669 

7670 =0 

7671 IOEAX: [ AR ]_[ ARX ] +WORK [ YSAVE ] , ; GLOBAL INDEXING 

7672 CLR 10 LATCH, RETURN [1] 

7673 [AR]_[ARX]+WORK[YSAVE] ; LOCAL INDEXING 

7674 [AR]__0, HOLD RIGHT, 

7675 CLR 10 LATCH, RETURN [1] 
7676 
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U 3560, 1074,3771 , 00 1 6 , 4354 , 4007 , 0650 , 2000 , 007 1 , 0200 

U 1074, 3561,3333,0016,7174,4127,0700,0400,0000,0210 

U 1 075 , 1 074 , 4443 , 0000 ,4174, 4006 , 7653 , 2000 , 0060 , 0000 

U 1076, 3561,3333,0016,7174,4127,0700,0400,0000,0210 
U 1077, 2457,3333,0016,7174,4007,0700,0400,0000,0210 

U 3561, 2454,4443,0000,4174,4007,0650,2000,0071,0777 

U 2454, 2456,4443,0000,4174,4127,0630,2000,0060,0000 
U 2455, 0001,4443,0000,4174,4004,1700,0000,0000,0000 

U 2456, 2454,4443,0000,4174,4127,0653,0000,0000,0000 
U 2457, 3664,4571,1206,4374,4007,0700,0000,0020,0000 
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7C77 


;WAIT 


FOR 10 TO COMPLETE 




7C7Q 


; RETURNS 1 OR PAGE FAILS 




7C7Q 










IOWA IT 


OV^ Otf , Off/ £.\J\J , 


• nFi a v 

, UCLA Y 


768 1 




fTAl \/MA 
1 1 UJ VIV|A , 


.RFT \/MA 
, vac l v m A 


7CQ9 
/ DO 




orvir/ 1U QUO" 


-cpp TC RIICV VPT 
, olC xr DUo " TCI 


/ooo 








/ oo*t 


t nw i • 


uLK 1U LA 1 On, 


, WCIN 1 Duo 1 


/ DO J 




WUKfS [oV . V |v|A J 1 1 \J J , 


, mArSC oUK C OV . VI»IA 1 o jl 1 Ur 


/ 000 




• 1 / t nu/o 


•U/ATT FnP TT Tfl PI PAP 
, WA 1 1 r UK XI IU OLCAK 


7C07 




oO OO 1 , Ov-iAU Ulor , 


ct . ccc Tp nriMP VPT 
vJI, , out Xr L/UINC TCI 


/ Ooo 




ofS x r / iu DUoT , 




/ Oo 17 




U/ x UW I 


.dapi^ Tfi i nnp 

, tSALrfx 1 U LUUr 


7CQA 




pi n to 1 ATrU' 
ULK 1U LA 1 Ln, 


• III C KIT Dl ICV AKin TTIUIETOIIT 

jWcivl CSUoY AINU llMcUUI 


/ by 1 




WUKix L O V . VWA J 1 IUJ , 


.IJAI/i; CI IDC C\/ \/R/IA TC CCTIID 
, iwlAKt oUKfc oV . VMA lb otlur 






. 1 / t nu/o 








uinDt/Tcv/ WMA 1 fTAl 
WUKK. t ^ V . VWA J 1. 1 Oj , 


.MAl/p CIIPP C\/ WMA TC CFTIID 
, WArSC oUKC OV. VWA xo otlUr 






, 1 / t nu/R 

U/ 1UWJ 


• TP AP 

, VaU 1 KAr 










7CQC 


X uw/ . 


cr <z& <z& /777 

O w O rr , Off / I 1 1 1 


• an TTMF Tfl 
, vau i x 1*1 c x u 


7RQ7 




<^kTp/-Tn rii<;v 

OMr/ 1U DUO 1 


» • • 




=0 








I0W3: 


CLR 10 LATCH, 


• TPV Tfl C\ PAP 1 ATrH 
,IKT IU LLCAK LA 1 Un 


7700 




STEP SC, U/I0W4 


, O 1 X L. L. DU J I 


7701 




RETURN [1] 


; IDLE 


7702 








7703 


=0 






7704 


I0W4: 


CLR 10 LATCH, 5T , 


; TRY TO CLEAR LATCH 


7705 




SKIP/-I0 BUSY, 


;SEE IF STILL BUSY 


7706 




J/I0W3 




7707 


I0W5: 


[BRX] [200000] XWD 


0, U/HARD 


7708 
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U 3562, 0001,3771,0003,4365,5004,1700,0200,0000,0002 
U 3563, 0001,3771,0004,4365,5004,1700,0200,0000,0002 
U 3564, 0001,3772,0000,4365,5004,1700,0200,0000,0002 
U 3565, 0001,4221,0004,4174,0004,1700,0000,0000,0000 
U 3566, 0001,0111,0703,4174,4004,1700,0000,0000,0000 
U 3567, 0001,3445,0505,4174,4004,1700,0000,0000,0000 
U 3570, 0001,3443,0300,4174,4004,1701,0200,0000,0036 
U 3571, 0004,3333,0005,4175,5004,1701,0200,0000,0002 
U 3572, 0001,3333,0001,4175,5004,1701,0200,0000,0002 
U 3573, 0001,3440,0404,0174,4004,1700,0400,0000,0000 



31(254) 



7709 
7710 
771 1 
7712 
7713 
7714 
7715 
7716 
7717 
7718 
7719 
7720 
7721 
7722 
7723 
7724 
7725 
7726 
7727 
7728 
7729 
7730 
7731 
7732 
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.TOC 



"SMALL SUBROUTINES' 



; HERE ARE A COLLECTION ON 1-LINE SUBROUTINES 
LOADAR: MEM READ, [AR]_MEM, ; FROM MEMORY TO AR 

RETURN [1] ; RETURN TO CALLER 

LOADARX: MEM READ, [ARX]_MEM, RETURN [1] 

LOADQ: MEM READ, Q_MEM, RETURN [1] 

CLARXL: [ARX]_0, HOLD RIGHT, RETURN [1] 

INCAR: [AR]_[AR]+1 , RETURN [1] 

SBRL: [BR]_[BR]*2, RETURN [1] 

STRTIO: VMA_[ AR ] WITH FLAGS, RETURN [1] 

STOBR: MEM WRITE, MEM_[BR], RETURN [4] 

STOPC: MEM WRITE, MEM_[PC], RETURN [1] 

AC ARX: AC [ARX] , RETURN [1] 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 31(254) 

; INOUT.MICE 10, 1 141 ] 09 : 1 7 27- JULY - 1984 

; 7733 

; 7734 

; 7735 

D 0703, 0003,1650,2100 "» 7736 

D 0706, 0006,1650,2100 ; 7737 

D 0707, 0007,1650,2100 ; 7738 

; 7739 

• D 0716, 0006,1651,2100 ; 7740 

D 0717, 0007,1651,2100 ; 7741 

; 7742 

D 0726, 0006,1652,2100 ; 7743 

D 0727, 0007,1652,2100 ; 7744 

; 7745 

D 0730, 0000,1653,2100 "» 7746 

5 D0731, 0001,1653,2100 ; 7747 
% D 0732, 0002,1653,2100 ! 7748 
3 D 0733, 0003,1653,2100 ; 7749 
$ D 0734, 0004,1653,2100 I 7750 
° D 0735, 0005,1653,2100 ; 7751 
I D 0736, 0006,1653,2100 J 7752 
I D 0737, 0007,1653,2100 ; 7753 

6 ; 7754 
I D 0740, 0000,1654,2100 ■* 7755 
g D Q74 1, 0001,1654,2100 ; 7756 
I D 0742, 0002,1654,2100 ; 7757 
1 D 0743, 0003,1654,2100 ; 7758 
1 d 0744, 0004,1654,2100 ; 7759 
g D 0745, 0005,1654,2100 ; 7760 
! D 0746, 0006,1654,2100 : 7761 

* D 0747, 0007,1654,2100 ; 7762 
I ; 7763 
f. D 0750, 0000,1655,2100 ; 7764 
1 D 0751, 0001,1655,2100 I 7765 
I D 0752, 0002,1655,2100 ; 7766 
I D 0753, 0003,1655,2100 ; 7767 
t D 0754, 0004,1655,2100 • ; 7768 
l D 0755, 0005,1655,2100 ; 7769 
| D 0756, 0006,1655,2100 ; 7770 

* D 0757, 0007,1655,2100 ; 7771 

; 7772 

D 0760, 0000,1656,2100 I 7773 

D 0761, 0001,1656,2100 5 7774 

D 0762, 0002,1656,2100 ; 7775 

D 0763, 0003,1656,2100 5 7776 

D 0764, 0004,1656,2100 % » 7777 

D 0765, 0005,1656,2100 I 7778 

D 0766, 0006,1656,2100 ; 7779 

D 0767, 0007,1656,2100 ; 7780 

; 7781 
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.TOC "UNDEFINED 10 INSTRUCTIONS" 



. DCODE 



703 : I 


B/3 , 


J/I0T700 


706 : I 


B/6 , 


J/I0T700 




B/7 


J/I0T7O0 


716: I 


B/6 , 


J/I0T71O 




B/7 , 


J/I0T710 


726: I 


B/6, 


J/I0T72O 




B/7 , 


J/I0T720 


730: I 


B/0, 


J/I0T730 




B/1 , 


J/I0T730 


j 


B/2,' 


J/I0T73O 


j 


B/3 , 


J/I0T730 


j 


B/4 , 


J/I0T730 


I 


B/5, 


J/I0T730 




B/6, 


J/I0T730 




B/7 , 


J/I0T73O 


740 : I 


B/0, 


J/I0T740 




B/1 , 


J/I0T740 


j 


B/2, 


J/I0T740 


j 


B/3, 


J/I0T740 


j 


B/4, 


J/I0T740 


I 


B/5, 


J/I0T740 




B/6, 


J/I0T740 




B/7, 


J/I0T740 


750 : I 


B/0, 


J/I0T750 




B/1 , 


U/I0T75O 


j 


B/2, 


J/I0T75O 


j 


B/3, 


J/I0T75O 


j 


B/4, 


J/I0T750 


I 


B/5, 


J/I0T750 




B/6, 


J/I0T750 




B/7, 


J/I0T75O 


760: I 


B/0, . 


J/I0T760 




B/1, 


J/I0T76O 




B/2, 


J/I0T760 




B/3, 


J/I0T760 




B/4, 


J/I0T76O 




B/5, 


J/I0T76O 




B/6, 


J/I0T760 




B/7, 


J/I0T76O 



r 
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0770, 
0771 , 
0772, 
0773, 
0774, 
0775, 
0776, 
0777, 



0000, 
0001 , 
0002, 
0003, 
0004, 
0005, 
0006, 
0007, 



1657. 
1657. 
1657. 
1657. 
1657, 
1657, 
1657, 
1657, 



2100 
2100 
2100 
2100 
2100 
2100 
2100 
2100 



U 1650, 2621,4551,0202,4374,0007,0700,0000,0077,7740 



U 1651, 0670,4443,0000,4174,4007,0700,0000,0000,0000 

U 1652, 2621,4551,0202,4374,0007,0700,0000,0077,7740 

U 1653, 2621,4551,0202,4374,0007,0700,0000,0077,7740 

U 1654, 2621 ,4551 ,0202,4374,0007,0700,0000,0077,7740 

U 1655, 2621,4551,0202,4374,0007,0700,0000,0077,7740 

U 1656, 2621,4551,0202,4374,0007,0700,0000,0077,7740 

U 1657, 2621,4551,0202,4374,0007,0700,0000,0077,7740 
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; 7782 770: I, B/0, J/I0T770 

; 7783 I, B/1, J/I0T77O 

; 7784 I, B/2, J/I0T77O 

; 7785 I, B/3, J/I0T770 

; 7786 I, B/4, J/I0T770 

; 7787 I, B/5, J/I0T770 

; 7788 I, B/6, J/I0T770 

; 7789 I, B/7, J/I0T770 

; 7790 .UCODE 
; 7791 

; 7792 1650: 

; 7793 I0T700: UUO 

; 7794 1651: 

; 7795 I0T710: 

; ;7796 . I FNOT/UBABLT 

;;7797 UUO 

; 7798 . I F/UBABLT 

; 7799 J/BLTX ; GO TO COMMON CODE FOR UBABLT INSTRS 

; 7800 . ENDI F/UBABLT 



7801 1652: 

7802 I0T72O: UUO 

7803 1653: 

7804 I0T730: UUO 

7805 1654: 

7806 I0T740: UUO 

7807 1655: 

7808 I0T750: UUO 

7809 1656: 

7810 I0T760: UUO 

7811 1657: 

7812 I0T770: UUO 
7813 



T10KI.MCR[10, 1141] 
INOUT.MICC 10, 1 141 ] 



11:45 11 -AUG- 1984 
09: 17 27-JULY-1984 



MICRO 31(254) 
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D 0704, 1200,1754,0100 
D 0705, 1200,1755,0100 



U 1754, 3574,3443,0300,4174,4207,0700,0200,0004,0012 

U 3574 , 1515,3771, 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 1755, 3575 , 3443 , 0300 ,4174, 4207 , 0700 , 0200 , 0003 , 00 1 2 

U 3575 , 1516,3771, 0003 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 



7814 
7815 
7816 
7817 
7818 
7819 
7820 
7821 
7822 
7823 
7824 
7825 
7826 
7827 
7828 
7829 
7830 
7831 
7832 
7833 
7834 
7835 



.TOC 



704: 



1754: 
UMOVE : 



"UMOVE AND UMOVEM" 



1755: 
UMOVEM: 



. DCODE 
IOT, 
IOT, 
.UCODE 



J/UMOVE 
J/UMOVEM 



VMA_JAR] , 
START READ, 
SPEC/PREV 
MEM READ, 
[ AR }_MEM , 
J/STAC 



VMA__[AR] , 
START WRITE, 
SPEC/PREV 
[AR]_AC, 
J/STMEM 



LOAD VMA 
START MEMORY 
FORCE PREVIOUS 
WAIT FOR MEMORY 
PUT DATA IN AR 
GO PUT AR IN AC 



LOAD VMA 
START MEMORY 
FORCE PREVIOUS 
FETCH AC 
STORE IN MEMORY 




f 

V 
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U 0104 , 3600, 3333 , 0004 , 7 1 74 , 4007 , 0700 , 04 1 , 0000 , 02 1 2 

U 0114, 3577 , 4223 , 0000 , 4364 , 4277 , 0700 , 02 1 , 0000 , 00 10 

U 0116, 3576,4221 ,0004,4174,4007,0700,0200,0021 , 1016 

U 3576, 2460,3333,0017,4175,5007,0701,0200,0000,0002 

U 2460, 3572,0111,0704,4170,4007,0700,0210,0023,1016 
U 2461, 0005,4443,0000,4174,4107,0700,0000,0000,0074 

U 0004 , 2462 , 4443 , 0000 , 4 1 74 , 4 1 07 , 0640 , 0000 , 0000 , 0062 
U 0005, 0004,4443,0000,4174,4007,0660,0000,0000,0000 



U 2462, 0117,3443,0100,4174,4007,0700,0200,0014,0012 
U 2463, 2464,4571 , 1203,4374,4007,0700,0000,0024, 1200 



U 2464 , 3570 ,3551, 0303 , 4370 , 4007 , 0700 , 00 10 , 0020 , 0000 



U 2465, 2600,3771,0002,4365,5617,0700,0200,0000,0002 



( 



31(254) 



KS10 MICROCODE V124, 
UMOVE AND UMOVEM 
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7836 
7837 
7838 
7839 
7840 
7841 
7842 
7843 
7844 
7845 
7846 
7847 
7848 
7849 
7850 
7851 
7852 
7853 
7854 
7855 
7856 
7857 
7858 
7859 
7860 
7861 
7862 
7863 
7864 
7865 
7866 
7867 
7868 



; HERE WITH HALT CODE IN THE T1 
=010* 

HALTED: WORK [ SV . ARX ]_[ ARX ] , 

CALL [SAVVMA] 
=110* ABORT MEM CYCLE, 

CALL [WRTHSB] 

= 111* 
PWRON: 



=0 

CONT: 



CONT 1 : 



;SAVE TEMP REGISTER 
;PUT VMA IN WORK[SV.VMA] 

; ABORT CYCLE IN PROGRESS 
;WRITE HALT STATUS BLOCK 



[ARX]_0, VMA PHYSICAL WRITE ; STORE HALT CODE 

MEM WRITE, MEM_JT1] ; IN LOCATION O 

NEXT [ARX] PHYSICAL WRITE, 
CALL [STOPC] 

SET HALT, J/HALTLP ; TELL CONSOLE WE HAVE HALTED 



=0 
H1 : 

4: UNHALT, 

SKIP EXECUTE, J/CONT 

5: 

HALTLP: SKIP/-CONTINUE , J/4 



VMA_[PC] , 

FETCH, 

J/XCTGO 

[ AR ]_VMA 10 READ 
[ AR ]_[ AR ] . OR . # , 
#/200000, HOLD LEFT, 
CALL [STRTIO] 
MEM READ, 
[HR]_MEM, 
LOAD INST, 
J/XCT1 



; RESET CONSOLE 
;SEE IF CO OR EX 

:WAIT FOR CONTINUE 



LOAD PC INTO VMA 
START READ 
DO THE INSTRUCTION 
PUT FLAGS IN AR 
PUT IN ADDRESS 
OF CSL REGISTER 

WAIT FOR DATA 

PUT IN HR 

LOAD IR, ETC. 

GO DO THE INSTRUCTION 
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7869 
7870 
7871 
7872 
7873 
7874 
7875 
7876 
7877 
7878 
7879 
7880 
7881 
7882 
7883 
7884 
7885 
7886 
7887 
7888 
7889 
7890 
7891 
7892 
7893 
7894 
7895 
7896 
7897 
7898 
7899 
7900 
7901 
7902 
7903 
7904 
7905 
7906 
7907 
7908 



.TOC "WRITE HALT STATUS BLOCK" 
; THE HALT STATUS BLOCK LOOKS LIKE: 



00! 




MAG 




01 ! 




PC 




02 ! 




HR 




03! 




AR 




04 ! 




ARX 




05 ! 




BR 




06 ! 




BRX 




07! 




ONE 




10! 




EBR 




1 1 ! 




UBR 




12! 




MASK 




13! 




FLG 




14! 




PI 




15! 




XWD1 




16! 




TO 




17! 




T1 






VMA FLAGS 


I 


VMA 
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U 0001, 3600,3333,0004,7174,4007,0700,0410,0000,0212 

U 0011, 0224,3771,0004,7274,4007,0701,0000,0000,0227 

U 0224 , 3602 , 4223 , 0000 , 4364 , 4277 , 0700 , 02 10 , 0000 , 00 10 

U 0226, 2461,4443,0000,4174,4107,0700,0000,0000,0074 

U 3577 , 2466 ,3771, 0004 , 7274 , 4007 , 0422 , 0000 , 0000 , 0227 

U 2466 , 3602 ,3333 ,00 1 2 , 4 1 74 , 4437 , 0700 , 0000 , 0000 , 0000 

U 2467, 0002,3771,0004,7274,4004,1701,0000,0000,0212 

U 3600, 3601 ,3771 ,0004,4354,4007,0700,0000,0000,0000 

U 3601, 0010,3333,0004,7174,4004,1700,0400,0000,0210 



254) 



7909 
7910 
79,11 
7912 
7913 
7914 
7915 
7916 
7917 
7918 
7919 
7920 
7921 
7922 
7923 
7924 
7925 
7926 
7927 
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; START AT 1 TO DUMP 2901 REGISTERS INTO MAIN MEMORY 
1: WORK[SV. ARX]_[ARX] , ; SAVE TEMP REGISTER 

CALL [SAVVMA] ; WORK[ SV . VMA ]_VMA 

1 1 : [ ARX ]_WORK [ HSBADR ] 

=10* ABORT MEM CYCLE, CALL [DUMP] 

SET HALT, J/H1 



WRTHSB: [ ARX ]_WORK[ HSBADR ] , ; 

SKIP AD.LE.O, 4T 
=0 READ [MASK], LOAD PI, 

J/DUMP 

[ARX]_WORK[SV. ARX] , 
RETURN [2] 



ADDRESS OF HSB 
;SEE IF VALID 
; TURN OFF PI SYSTEM 
; AND GO TAKE DUMP 

;D0 NOT DUMP ANYTHING 



SAVVMA: [ARX]_VMA 

WORK[SV. VMA]_[ARX] , 
RETURN [10] 



T10KI.MCR[10, 1141] 11:45 11-AUG-1984 MICRO 
IN0UT.MIC[1O, 1141] 09:17 27-JULY-1984 



u 


3602, 


u 


2341 , 


u 


2343, 


u 


3603, 


u 


2470, 


u 


2472, 


u 


2471 , 


u 


2473, 


u 


2474, 


u 


2476, 


u 


3604, 


u 


2475, 


u 


2477, 


u 


3605, 


u 


2500, 


u 


2502, 


u 


3606, 


u 


2501 , 


u 


2503, 


u 


3607 , 


u 


2504 , 


u 


2506, 


u 


3610, 


u 


2505, 


u 


2507, 


u 


2510, 


u 


2512, 


u 


3611 , 


u 


3612, 


u 


3613, 



2341 , 
2630, 
3603, 
2470, 
2630, 
2471 , 
2630, 
2474, 
2630, 
3604, 
2475, 
2630, 
3605, 
2500, 
2630, 
3606, 
2501 , 
2630, 
3607, 
2504, 
2630, 
3610, 
2505, 
2630, 
2510, 
2630, 
361 1 , 
3612, 
3613, 
3614, 



3333, 
3333, 
3333, 
0111, 
3333, 
3333, 
3333, 
3771 , 
3333, 
3333, 
011 1 , 
3333, 
3333, 
0111, 
3333, 
3333, 
01 1 1 , 
3333, 
3333, 
0111, 
3333, 
3333, 
0111, 
3333, 
3333, 
3771 , 
3333, 
3771 , 
3771 , 
3443, 



0004 
0000 
0001 
0704 
0002 
0003 
0003 
0003 
0003 
0005 
0704 
0006 
0007 
0704 
0010 
001 1 
0704 
0012 
0013 
0704 
0014 
0015 
0704 
0016 
0017 
0003 
0003 
0003 
0004 
0400 



4174, 
4175, 
4175, 
4170, 
4175, 
4175, 
7174, 
7274, 
4175, 
4175, 
4170, 
4175, 
4175, 
4170, 
4175, 
4175, 
4170, 
4175, 
4175, 
4170, 
4175, 
4175, 
4170, 
4175, 
4175, 
7274, 
4175, 
7274, 
7274, 
4174, 



4007 
5007 
5007 
4007 
5007 
5007 
4007 
4007 
5007 
5007 
4007 
5007 
5007 
4007 
5007 
5007 
4007 
5007 
5007 
4007 
5007 
5007 
4007 
5007 
5007 
4007 
5007 
4007 
4007 
4007 



,0700, 
,0701 , 
,0701 , 
,0700, 
,0701 , 
,0701 , 
, 0700 , 
,0701 , 
,0701 , 
,0701 , 
,0700, 
,0701 , 
,0701 , 
,0700, 
,0701 , 
,0701 , 
,0700, 
,0701 , 
,0701 , 
,0700, 
,0701 , 
,0701 , 
,0700, 
,0701 , 
,0701 , 
,0701 , 
,0701 , 
,0701 , 
,0701 , 
,0700, 



0200 
0210 
0200 
0200 
0210 
0200 
0410 
0000 
0210 
0200 
0200 
0210 
0200 
0200 
0210 
0200 
0200 
0210 
0200 
0200 
0210 
0200 
0200 
0210 
0200 
0010 
0200 
0000 
OOOO 
0200 



0021 , 1016 
0000,0002 
0000,0002 
0023, 1016 
0000,0002 
0000,0002 
0000,021 1 
0000,0212 
0000 , 0002 
0000 , 0002 
0023, 1016 
0000,0002 
0000,0002 
0023, 1016 
0000,0002 
0000,0002 
0023, 1016 
0000,0002 
0000 , 0002 
0023, 1016 
0000,0002 
0000 , 0002 
0023, 1016 
0000,0002 
0000,0002 
0000,0210 
0000,0002 
0000,0211 
0000,0210 
0000,0010 



U 3614, 0006,3771,0004,7274,4004,1701,0000,0000,0212 
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; 7928 ;DUMP OUT THE 2901 

; 7929 DUMP: READ [ ARX] , VMA PHYSICAL WRITE 

; 7930 =0* MEM WRITE, MEM_[MAG] , CALL [NEXT] 

; 7931 MEM WRITE, MEM_[PC] 

; 7932 NEXT [ARX] PHYSICAL WRITE 

; 7933 =0* MEM WRITE, MEM_[HR], CALL [NEXT] 

; 7934 MEM WRITE, MEM__[ AR ] 

; 7935 =0* WORK [ SV . AR ]_[ AR ] , CALL [NEXT] 

; 7936 [ AR ]__WORK [ SV . ARX ] 

; 7937 =0* MEM WRITE, MEM_[ AR] , CALL [NEXT] 

; 7938 MEM WRITE, MEM_[BR] 

; 7939 NEXT [ARX] PHYSICAL WRITE 

; 7940 =0* M£M WRITE, MEM__[BRX] , CALL [NEXT] 

; 7941 MEM WRITE, MEM_[ONE] 

; 7942 NEXT [ARX] PHYSICAL WRITE 

; 7943 =0* MEM WRITE, MEM_[EBR], CALL [NEXT] 

; 7944 MEM WRITE, MEM__[UBR] ' * 

; 7945 NEXT [ARX] PHYSICAL WRITE 

; 7946 =0* MEM WRITE, MEM_[MASK], CALL [NEXT] 

; 7947 MEM WRITE, MEM_[FLG] 

; 7948 NEXT [ARX] PHYSICAL WRITE 

; 7949 =0* MEM WRITE, MEM_[PI], CALL [NEXT] 

; 7950 MEM WRITE, MEM_[XWD1] 

; 7951 NEXT [ARX] PHYSICAL WRITE 

; 7952 =0* MEM WRITE, MEM_[ TO] , CALL [NEXT] 

; 7953 MEM WRITE, MEM_[T1] 

; 7954 =0* [ AR ]_WORK [ SV . VMA ] , CALL [NEXT] 

; 7955 MEM WRITE, MEM_[AR] 

; 7956 HSBDON: [ AR ]_WORK[ SV . AR ] 

; 7957 [ARX]_WORK[SV. VMA] 

; 7958 VMA_[ARX] 

; 7959 [ARX]_WORK[SV. ARX] , 

; 7960 RETURN [6] / 

; 7961 



rs 
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7962 
7963 
7964 
7965 
7966 
7967 
7968 
'7969 
7970 
7971 
7972 
7973 
7974 
7975 
7976 
7977 
7978 
7979 
7980 
7981 
7982 
7983 
7984 
7985 
7986 
7987 
7988 
7989 
7990 
7991 
7992 
7993 
7994 
7995 
7996 
7997 
7998 
7999 
8000 
8001 
8002 
;8003 
;8004 
8005 
8006 



.NOBIN 
.TOC 
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WHEN THE CPU CAN NOT COMPLETE A MEMORY REFERENCE BECAUSE THE PAGE 
TABLE DOES NOT CONTAIN VALID INFORMATION FOR THE VIRTUAL PAGE INVOLVED 
THE HARDWARE CALLS THIS ROUTINE TO RELOAD THE HARDWARE PAGE TABLE. 

THIS CODE WILL EITHER DO THE RELOAD OR GENERATE A PAGE FAIL FOR THE 
SOFTWARE. THE INFORMATION LOADED CONSISTS OF THE PHYSICAL PAGE NUMBER, 
THE CACHE ENABLE BIT AND THE WRITE ENABLE BIT. 

THIS LOGIC USES MANY VARIABLES. THEY ARE DESCRIBED BRIEFLY HERE : 



THING 

OLD VMA 

OLD AR 

OLD ARX 

OLD BR 

OLD BRX 

KL PAGING BIT 



W BIT 
C BIT 

PI CYCLE 
MAP FLAG 
CLEANUP CODE 

SPT BASE 

CST BASE 

CST MASK 

CST DATA (PUR) 

PAGE TABLE ADDRESS 

PHYSICAL PAGE # (PPN) 

CST ENTRY 

SPT ENTRY 

PAGE TABLE ENTRY 

PAGE NUMBER 

PAGE FAIL WORD 

. IF/INHCST 

SKIP NO CST 
. ENDI F/INHCST 



WHERE KEPT 
WORKSPACE WORD 210 
WORKSPACE WORD 211 
WORKSPACE WORD 212 
WORKSPACE WORD 213 
WORKSPACE WORD 214 
EBR BIT 1 (IN 2901) 



FLG BIT 4 
FLG BIT 6 

FLG BIT 5 
FLG BIT 18 
FLG BITS 32-35 

WORKSPACE WORD 215 

WORKSPACE WORD 216 

WORKSPACE WORD 217 

WORKSPACE WORD 220 

AR 

AR 

AR 

AR 

AR 

BR 

BRX 



USE 

SAVES VMA 
SAVES AR 
SAVES ARX 
SAVES BR 
SAVES BRX 

INDICATES KL STYLE (TOPS-20) PAGING 

INSTEAD OF KI STYLE (TOPS- 10 AND DIAGNOSTIC) 

MODE PAGING 

PAGE CAN BE WRITTEN 

DATA IN THIS PAGE MAY BE PUT 

INTO CACHE 

STORING OLD PC DURING PI 
MAP INSTRUCTION IN PROGRESS 
WHAT TO DO SO INSTRUCTION MAY BE 
RESTARTED 

ADDRESS OF SHARED-POINTER-TABLE 
ADDRESS OF CORE-STATUS-TABLE 
BITS TO KEEP ON CST UPDATE 
BITS TO SET ON CST UPDATE 
WHERE THIS PAGE TABLE IS LOCATED 
RESULT OF THIS PROCESS 
CORE STATUS TABLE ENTRY 
WORD FROM SPT 
WORD FROM PT 

INDEX INTO CURENT PAGE TABLE 
WHAT HAPPENED (ALSO MAP RESULT) 



"AD/D , DBUS/RAM , RAMADR/ # , WORK/CBR , DT/4T , SKIP/ADEQO" 
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8007 
8008 
8009 
8010 
8011 
8012 
8013 
8014 
8015 
8016 
8017 
8018 
8019 
8020 
8021 
8022 
8023 
8024 
8025 
8026 
8027 
8028 
8029 
8030 
8031 
8032 
8033 
8034 
8035 
8036 
8037 
8038 
8039 
8040 
8041 



KL10 PAGING - WORD FORMATS 



Section Pointer 



The section pointer is found in the user or exec section table. 
(Part of UPT or EPT . ) 

Section pointer provides (via the SPT) the physical address of 
the PAGE TABLE for the given section. 

Code: O No-access (trap) 

1 Immediate 

2 Share 

3 Indirect 

4-7 Unused, reserved 



1 2 3 4 5 6 
+ + - + - + - + - + 



18 35 

!CODE!P!W! ! C !///////// ! PAGE TABLE IDENTIFIER S 
!010 ! ! ! ! !/////////! (SPT INDEX) ! 



NORMAL SECTION POINTER (Code 
9 18 



= 2) 



35 



O 2 3 4 5 6 

+ + - + - + - + - + + + 

!CODE!P!W! ! C !///! SECTION !SECTION TABLE IDENTIFIER! 
!011 ! ! ! ! !///!TABLE INDEX! (SPT INDEX) ! 
+ +-+-+-+-+ + + + 

INDIRECT SECTION POINTER (Code = 3) 
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8042 
8043 
8044 
8045 
8046 
8047 
8048 
8049 
8050 
8051 
8052 
8053 
8054 
8055 
8056 
8057 
8058 
8059 
8060 
8061 
8062 
8063 
8064 
8065 
8066 
8067 
8068 
8069 
8070 
8071 
8072 
8073 
8074 



PAGE POINTERS 

FOUND IN PAGE TABLES 



0123456 12 35 
+ +-+-+-+-+ + + 

!C0DE!P!W! !C!////! PHYSICAL ADDRESS OF PAGE ! 
!001 ! ! ! ! !////! ! 

IMMEDIATE POINTER (code field = 1) 

B12-35 give PHYSICAL ADDRESS OF PAGE 

if B12-17 >< O, page not in core-trap 
if B12-17 = 0, B23-35 give CORE PAGE 

NUMBER of page, B18-22 MBZ 



2 3 6 18 

.'CODE ! SAME AS!/////////! 
!010 ! IMMED. !/////////! 



SPT INDEX 



35. 

+ 

I 

! 

- + 



SHARED POINTER (code field = 2) 

B18-35 Give SPT INDEX (SPTX). SPTX + SPT BASE 
ADDRESS = physical core address of word 
holding physical address of page. 



T 10KI . MCR [ 10, 1 141 ] 
PAGEF.MIC[ 10, 1 141 ] 



11:45 11-AUG-1984 
12:32 26- JULY- 1984 



MICRO 31(254) KS10 MICROCODE V124, 27-JUL-84 Page 225 
PAGE FAIL REFIL LOGIC 



8075 
8076 
8077 
8078 
8079 
8080 
8081 
8082 
8083 
8084 
8085 
8086 
8087 
8088 
8089 
8090 
8091 
8092 
8093 
8094 
8095 
8096 
8097 
8098 
8099 
8100 
8101 
8102 
8103 



12 3 6 9 17 18 35 

!C0DE!SAME AS ! /// ! PAGE ! PAGE TABLE IDENTIFIER! 
1011 ! IMMED. ! /// ! NUMBER ! (SPT INDEX) ! 

INDIRECT POINTER (code field = 3) 

This pointer type causes another pointer to be fetched 
and interpreted. The new pointer is found in word N 
(B9-17) of the page addressed by C(SPT + SPTX). 



SPT ENTRY 

Found in the SPT, i.e., when fetching C(SPT +SPTX) 

12 35 

+ ^ - + + 

!////////////////////! PHYSICAL ADDRESS OF PAGE ! 
!////////////////////! OR PAGE TABLE ! 
+ + - + 

B12-35 Give PHYSICAL ADDRESS of page. 

The base address (physical core address) of the SPT 
resides in one AC of the reserved AC block. 
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8104 
8105 
8106 
8107 
8108 
8109 
81 10 
811 1 
8112 
8113 
81 14 
8115 
81 16 
8117 
8118 
81 19 
8120 
8121 
8122 
8123 
8124 
8125 
8126 
8127 
8128 
8129 
8130 
8131 
8132 
8133 
8134 
8135 
8136 
8137 
8138 
8139 
8140 
8141 



PHYSICAL STORAGE ADDRESS 

Found in B12-35 of IMMEDIATE POINTERS and SPT ENTRIES. 



12 
+ - - 



17 18 



23 



!MBZ ! CORE PAGE NUMBER! 
! ! IF B12-17 = O ! 
■ + + + 



KS10 MICROCODE V124, 27-JUL-84 
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35 
-- + 
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If B12-17 = 0, then B23-35 are CORE PAGE NUMBER (i.e., 
B14-26 of physical core address) of page and B18-22 
MBZ. If B12-17 >< O, then address is not core and 
pager traps. 



CORE STATUS TABLE ENTRY 

Found when fetching C(CBR + CORE PAGENO) 

5 32 





+ + - 

! CODE ! 
+ + - 



34 35 

+ - + 

!M! 
+ - + 



BO-5 are code field: 

- unavailable, trap 
1-77 - available 

B32-34 reserved for future hardware specification. 
B35 is "modified" bit, set on any write ref to page. 



T10KI 
PAGEF 

8142 

8143 

8144 

8145 

8146 

8147 

8148 

8149 

8150 

8151 

8152 

8153 

8154 

8155 

8156 

8157 

8158 

8159 

8160 

8161 

8162 

8163 

8164 

8165 

8166 

8167 

8168 

8169 

8170 

8171 

8172 

8173 

8174 

8175 

8176 

8177 

8178 

8179 

8180 

8181 

8182 

8183 



,MCR[ 10, 1 141 ] 
,MIC[ 10, 1141] 



11:45 11-AUG-1984 
12:32 26- JULY- 1984 



MICRO 31(254) 



KS10 MICROCODE V124, 27- JUL-84 Page 227 
PAGE FAIL REFIL LOGIC 



QUANTITIES IN HARDWARE REGISTERS 
SPT SPT Base Register 



14 35 

+ -- - + 

! PHYSICAL CORE WORD ADDRESS ! 
+ + 



CBR 



CST Base Register 



14 35 
+ _ + 

! PHYSICAL CORE WORD ADDRESS ! 
+ + 



CSTMSK CST Update Mask 



O 
+ - 
f 

+ - 



MASK 



32 35 

- + + - + 

111111! 

- + + - + 



ANDed with CST word during update 
(B32-35 must be all 1's to preserve existing CST information) 
CSTDATA CST Update Data 

32 34 35 

DATA 




+ - 
f 

+ - 



+ + - + 

!000!0! 
• + + - + 



IORed with CST word during update 

(B32-35 must be all O's to preserve existing CST information) 

All unspecified bits and fields are reserved for future 
specification by DEC. 



f 

( 



o 

; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; PAGEF.MIC[ 10, 1 141 ] 12:32 26-JULY-1984 



D 0257, 1215, 1553,0100 



U 1553, 36 1 5 , 355 1 , 0303 , 4374 , 0007 , 0700 , 0000 , 00 1 6 , 0000 

U 3615, 3616,3771,0006,4354,4007,0700,0000,0000,0000 

U 36 1 6 , 36 1 7 , 455 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0040 , 0000 

U 3617, 3620 , 3333 , 0006 ,7174, 4007 , 0700 , 0400 , 0000 , 02 10 

5 U 3620, 3621,3771,0005,7274,4007,0701,0000,0000,0230 

% U 3621, 2514,4553,0500,4374,4007,0331,0000,0003,0000 

8 U 2514, 3631,3771,0013,4370,4007,0700,0000,0040,0002 

| U 2515, 0100,3440,0303,0174,4156,4700,0400,0000,0000 

8 



U 3777 , 3622 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 1 

U 3622 , 3623 , 3333 , 0006 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 4 

U 3623 , 3624 ,3771, 0006 , 4354 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3624 , 3625,3333, 0006 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 

U 3625 , 1060 , 3333 , 0004 ,7174, 4007 , 0370 , 0400 , 0000 , 02 1 2 



U 1 060 , 1 060 , 3773 , 0000 , 4304 , 4003 , 1 702 , 0000 , 0000 , 0000 

U 106 1 , 3666 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 3 

U 1063 , 3626 ,3771, 0006 , 4374 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1065, 3664,4571 , 1206,4374,4007,0700,0000,0037,0000 

U 1067, 3664,4571 , 1 206 , 4374 , 4007 , 0700*, 0000, 0037 , 0000 

U 1 070 , 363 1 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 3 

U 107 1 , 3666 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 3 

U 1072 , 363 1 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 3 

U 1073 , 363 1,3333, 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 3 



U 3626 , 3627,3333, 0006 ,7174, 4007 , 0700 , 0400 , 0000 , O 1 60 
U 3627 , 3630 , 3333 , 0006 ,7174, 4007 , 0700 , 0400 , 0000 ,0161 
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8184 
8185 
8186 
8187 
8188 
8189 
8190 
8191 
8192 
8193 
8194 
8195 
8196 
8197 
8198 
8199 
8200 
8201 
8202 
8203 
8204 
8205 
8206 
8207 
8208 
8209 
8210 
821 1 
8212 
8213 
8214 
8215 
8216 
8217 
8218 
8219 
8220 
8221 
8222 
8223 
8224 
8225 
8226 
8227 
8228 
8229 
8230 
8231 
8232 
8233 
8234 
8235 
8236 
8237 
8238 
8239 
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257: 



1553: 
MAP: 



.BIN 

. DCODE 

IOT, 

.UCODE 



AC, 



J/MAP 



[ AR ]_[ AR ] . OR . # , 
#/ 160000, 
HOLD RIGHT 
[BRX]_VMA 

[BRX ]_[BRX ] . AND . # , 
#/400000, HOLD RIGHT 
WORK[SV. VMA]_[BRX] 
[BR]_WORK[APR] 
TR [BR], #/030006 
STATE_[MAP], J/PFMAP 
AC [AR], NEXT INST 



ASSUME PHYSICAL REF 
FAKE ANSWER 

PUT VMA AND FLAGS IN BRX 
JUST KEEP USER BIT 



;SAVE IN WORKSPACE 
; GET APR FLAGS 
; PAGING ENABLED? 
=0 STATE_[MAP], J/PFMAP ;YES--DO REAL MAP 

; NO- -RETURN VIRTUAL ADDRESS 
; HARDWARE COMES HERE ON PAGE TABLE NOT VALID (OR INTERRUPT) WHEN 
; STARTING A MEMORY REFERENCE. MICOWORD ADDRESS OF INSTRUCTION DOING 
; MEM WAIT IS SAVED ON THE STACK. 
3777: 

PAGE-FAIL: 

WORK[SV.AR]_[AR] 
ITRAP: WORK[SV.BRX]_[BRX] 

[BRX]_VMA 

WORK[SV.VMAj_[BRX] 
WORK[SV. ARX]_[ARX] , 
SKIP IRPT 



;SEE IF INTERRUPT (SAVE DISPATCH) 



=0000 
PFD: 



DBM/PF DISP, DBUS/DBM, 
AD/D, DEST/PASS, 4T , 
DISP/DP LEFT, J/PFD 



=0001 
=001 1 

=0101 
=01 1 1 
= 1000 
= 1001 
= 1010 
= 101 1 

BADDATA: 



; BRING CODE TO 2901 'S 
;PUT ON DP 18-21 
;DISPATCH ON IT 
;(1) INTERRUPT 
J/PFPI1 

;(3) BAD DATA FROM MEMORY 
; GET THE BAD DATA 
; DO NOT LOOK AT PARITY 
;SAVE IN AC BLK 7 
;(5) NXM ERROR 
J/HARD 

; (7) NXM & BAD DATA 
[BRX] [370000] XWD 0, J/HARD 

;(10) WRITE VIOLATION 
WORK[SV.BR]_[BR] , J/PFMAP 

;[123] (11) 1 ms timer and movsrj 
WORK[SV.BR]_[BR], J/PFPI1 

; ( 12) PAGE NOT VALID 
WORK[SV.BR] [BR], J/PFMAP 

;(13) EXEC/USER MISMATCH 
WORK[SV.BR]_[BR] , J/PFMAP 



WORK[SV.BR]_[BR] , 

[BRX]_IO DATA, 
AD PARITY OK/0, 
J/BADDATA 



[ BRX ]_[ 370000] XWD O, 



WORK[BADWO]_[BRX] 
W0RK[BADW1 ]_[BRX] 



;SAVE BAD WORD 
: AGAIN 
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; PAGEF.MICt 10, 1 141 3 12:32 26- JULY- 1984 PAGE FAIL REFIL LOGIC 

U 3630, 3664,4571,1206,4374,4007,0700,0000,0036,0000 ; 8240 [BRX ]_[ 360000] XWDO, J/HARD 

; 8241 



r 



; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; PAGEF .MIC[ 10, 1 141 ] 12:32 26-JULY-1984 

U 3631, 3632,4223,0000,4364,4277,0700,0200,0000,0010 

U 3632, 3633,3551,1313,4374,0007,0700,0000,0002,4000 
U 3633, 2516,4553,0600,4374,4007,0321,0000,0002,0000 

U 2516, 2517,3551,0606,4374,0007,0700,0000,0001,0000 

U 2517, 3634,4551 ,0606,4374,0007,0700,0000,0041 , 1000 

U 3634, 3635,6551 ,0606,4374,0007,0700,0000,0000, 1000 
U 3635, 2520,3441,0605,4174,4007,0700,2000,0071,0007 

U 2520, 2520,3447,0505,4174,4007,0630,2000,0060,0000 
U 2521 , 3636,4251 ,0505,4374,4007,0700,0000,0000,0777 



U 3636, 3657,3447,0504,4174,4007,0700,0000,0000,0000 



254) 
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8242 
8243 
8244 
8245 
8246 
8247 
8248 
8249 
8250 
8251 
8252 
8253 
8254 
8255 
8256 
8257 
8258 
8259 
8260 
8261 
8262 
8263 
8264 
8265 
8266 
8267 
;8268 
,-8269 
;8270 
;8271 
;8272 
;8273 
;8274 
;8275 
;8276 
8277 
8278 
8279 
8280 
8281 
8282 



;WE HAVE SAVED AR , ARX, BR AND BRX. WE MERGE IN HERE FROM MAP 
; INSTRUCTION, SAVE THE VMA AND START THE PAGE FAIL WORD. 



PFMAP: 



=0 



ABORT MEM CYCLE 
[ FLG]_[ FLG] .OR.0, 
FLG.W/1, FLG.C/1, 
HOLD RIGHT 

TL [BRX] , WRITE TEST/1 
[BRX]_[BRX] .OR.0, 
0/ 10000, 
HOLD RIGHT 
[BRX]_[BRX] . AND . , 
0/41 1000, 
HOLD RIGHT 



[BRX]_[BRX] .XOR.0, 
0/1000, HOLD RIGHT 
[BR]_[BRX] , 
SC 7 



=0 

PF25: 



[BR]_[BR]*.5, 
STEP SC, 
J/PF25 

[BR ]_[BR ] . AND . CLR LH, 

0/777 
. IF/KLPAGE 
. IF/KIPAGE 

TL [EBR], 

0/40 

=0 

. ENDI F/KIPAGE 

READ [BRX], 

SKIP DPO, 

J/PF30 
. ENDI F/KLPAGE 
. IF/KIPAGE 

[ARX]_[BR]*.5, 

J/KIFILL 
. ENDI F/KIPAGE 



CLEAR PAGE FAIL 

PRESET W AND C TO 1 

BITS INVOLVED 

LEAVE RH ALONE 

IS THIS A WRITE TEST? 



REF 



YES- -TURN INTO WRITE 
START PAGE FAIL WORD 
SAVE 3 INTERESTING BITS 
SAVE VIRTUAL ADDRESS 
USER ADDR (400000) 
(010000) 
(001000) 



WRITE REF 
PAGED REF 
FIX BIT 8 



COPY VIRTUAL ADDRESS 
PREPARE TO SHIFT 9 PLACES 

RIGHT ADJUST PAGE 
COUNT SHIFT STEPS 
LOOP FOR 9 
MASK TO 9 BITS 



;KI MODE REFILL? 
; FLAG BIT 



USER REF? (KL MODE) 
CONTINUE AT PF30 



;KI10 MODE 
;G0 HANDLE 



REFILL 
EASY CASE 
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;8283 . IF/KLPAGE 

;8284 ;HERE IN TOPS-20 MODE 

;8285 ;PICK UP CORRECT SECTION POINTER 

;8286 =0 

;8287 PF30: [ ARX ]_WORK [ PTA . E 3 , ;EXEC MODE 

;8288 SKIP AD.EO.O, 4T , ;SEE IF VALID 

; 8289 J/PF35 ;CONTINUE BELOW 

^8290 - [ARX]_WORK[PTA.U] , ;USER MODE 

,-8291 SKIP AD.EO.O, 4T ;SEE IF VALID 

;8292 =0 VMA__[ ARX] + [BR] , ;POINTER VALID 

;8293 VMA PHYSICAL READ, ; START MEMORY 

; 8294 U/PF77 ; CONTINUE BELOW 

•[8295 [AR] [UBR]+#, 3T, ;USER MODE 

;8296 #/540, ;OFFSET TO UPT 

;8297 J/PF40 ;G0 GET POINTER 

|8298 

* 8299 =o 

|8300 PF35: VMA_[ ARX]+ [BR ] , ; POINTER VALID 

; 8301 VMA PHYSICAL READ, ; START MEMORY 

•8302 J/PF77 -.CONTINUE BELOW 

;8303 [AR]_[EBR]+#, 3T , ; EXEC MODE 

;8304 #/540 ; OFFSET TO EPT 

;8305 PF40: VMA [AR], ; LOAD THE VMA 

•8306 START READ, ; START THE MEMORY CRANKING 

;8307 VMA PHYSICAL ; ABSOLUTE ADDRESS 

;8308 MEM READ, ;WAIT FOR MEMORY 

;8309 [AR]_MEM ;POINT POINTER IN AR 

;8310 ;LOOK AT SECTION POINTER AND DISPATCH ON TYPE 

;8311 =000 

•8312 PF45: SC 7, ; FETCH SECTION O POINTER 

•8313 CALL [SETPTR] . ; FIGURE OUT POINTER TYPE 

;8314 SECIMM: TL [AR], IMMEDIATE POINTER 

;8315 #/77, ; TEST FOR 12-17 = O 

•8316 J/PF50 ;CONTINUE AT PF50 

;8317 [AR] [AR]+WORK[SBR] , ; SHARED SECTION 

•8318 J/SECSHR ; GO FETCH POINTER FROM SPT 

•8319 [AR]_[AR]+WORK[SBR], ; INDIRECT SECTION POINTER 

;8320 CALL [ RDPT ] ;G0 FETCH SPT ENTRY 

;8321 =111 TL [AR], ; 12 TO 17 = 0? 

;8322 #/77 ; . . 

* 8323 — 

•8324 =0 PAGE FAIL TRAP ;N0 

;8325 [AR] [AR]*2, ;FIRST SHIFT 

;8326 STEP SC ; SC WAS LOADED AT PF45 

;8327 =0*0 

;8328 PF60: [AR]_[AR]*2, ;CONVERT TO ADDRESS OF 

;8329 STEP SC, ; SECTION TABLE 

;8330 J/PF60 

;8331 CALL [RDPT] ; READ SECTION TABLE 

;8332 =1*1 J/PF45 ; TRY AGAIN 



8333 = 
8334 



o 
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;;8335 ;STILL . I F/KLPAGE 

;;8336 ; HERE FOR SHARED SECTION. AR GETS THE ADDRESS OF PAGE TABLE 

; ; 8337 =0** 

;;8338 SECSHR: CALL [RDPT] ; READ WORD FROM SPT 

;;8339 TL [AR], U/ll ; TEST FOR BITS 12-17 = 

;;8340 

;;8341 ; HERE WITH ADDRESS OF PAGE TABLE IN AR AND SKIP ON 

;;8342 ; BITS 12 THRU 17 EQUAL TO ZERO 

;;8343 =0 

;;8344 PF50: PAGE FAIL TRAP ;BITS 12-17 . NE . O 

;;8345 [ARX] [ AR ] . AND . # CLR LH, ; PAGE NUMBER OF PAGE TABLE 

— 8346 #/3777 ;11 BIT PHYSICAL PAGE # 

; ;8347 . IFNOT/NOCST 

;;8348 =0* [AR]_[ARX], ; COPY ADDRESS 

;;8349 CALL [UPCST] ; UPDATE CSTO 

;;8350 PF70: [ AR ]_[ AR ] . OR . WORK[ PUR ] ; PUT IN NEW AGE AND 
; ;8351 ; USE BITS 

; ;8352 . IFNOT/INHCST 

;;8353 =0** START NO TEST WRITE, ; START MEMORY WRITE 

;;8354 CALL [IBPX] ; GO STORE IN MEMORY 

;;8355 . ENDI F/INHCST 

;;8356 .IF/INHCST 

;;8357 =0** SKIP NO CST, ;SEE IF A CST 

-8358 CALL [WRCST] ; AND GO WRITE IN MEMORY 

; ;8359 . ENDI F/INHCST 

;;8360 SC_7 ;THIS CAN BE BUMMED 

••8361 =0 

;;8362 PF75: [ ARX ]_[ ARX ] *2 , ; CONVERT PAGE NUMBER TO 

;;8363 STEP SC, ; PAGE ADDRESS 

;;8364 J/PF75 ; LOOP OVER 9 STEPS 

; ;8365 
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;8366 ;STILL . I F/KLPAGE 

;8367 ;WE NOW HAVE THE ADDRESS OF THE PAGE TABLE ENTRY. GO 

;8368 ; READ IT AND START ANALYSIS 

;8369 

;8370 ;IF WE ARE HERE FOR THE FIRST TIME FOR THE USER OR EXEC SAVE THE 

;8371 ; ADDRESS OF THE PAGE TABLE IN PTA . E OR PTA . U SO THAT WE DO NOT 

;8372 ; HAVE TO DO THE SECTION LOOKUP EVERY TIME. 

;8373 READ [BRX], SKIP DPO ;USER OR EXEC REF? 

;8374 =000 [ AR J_WORK[ PTA . E ] , ; EXEC MODE 

;8375 SKIP AD.EQ.O, 4T , ;SEE IF SET YET 

;8376 CALL [SHDREM] ; SHOULD WE REMEMBER PTR 

;8377 [AR]_WORK[PTA.U] , ;USER MODE 

;8378 SKIP AD.EQ.O, 4T , ;SEE IF SET YET 

-,8379 CALL [SHDREM] ; SHOULD WE REMEMBER PTR 

;8380 W0RK[PTA.EJ_[ARX], ; SAVE FOR EXEC 

;8381 J/PF76 ;CONTINUE BELOW 

;8382 WORK[PTA.U]_jARXj , ; SAVE FOR USER 

;8383 J/PF76 ; CONTINUE BELOW 

;8384 =111 

;8385 PF76: VMA_[ ARX ]+ [BR ] , ; READ PAGE POINTER 

;8386 START READ, 

;8387 VMA PHYSICAL 

;8388 = 

;8389 =00 

;8390 PF77: MEM READ, ; START ANALYSIS OF POINTER 

;8391 [ AR 3_MEM , 

;8392 CALL [SETPTR] 

;8393 PTRIMM: TL [ AR 3 , IMMEDIATE POINTER 

;8394 #/77, ;CHECK FOR BITS 0-5 

;8395 J/PF80 ;G0 TO PF80 

;8396 . [AR]_[AR3+W0RK[SBR] , ; SHARED POINTER 

;8397 U/PTRSHR ;G0 TO READ SPT 

;8398 
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8399 ;STILL . I F/KLPAGE 

8400 ; INDIRECT POINTER. CHANGE PAGE AND LOOK FOR PAGE TABLE 

8401 PTRIND: [BR]_[AR] SWAP, ; PUT IN RIGHT HALF 

8402 SKIP/-1 MS ;DID CLOCK GO OFF 

8403 =0 WORK [ SV . AR 1 ]_[ AR J , ;YES--UPDATE CLOCK 

8404 J/PFTICK ; .. 

8405 [BR]_[BR].AND.0 CLR LH, ; UPDATE PAGE AND RESTART 

8406 0/777, ; MASK FOR PAGE 

8407 SKIP IRPT ;SEE IF THIS IS A LOOP 

8408 =0 [AR]_[AR] . AND . , ; CHANGE INDIRECT POINTER 

8409 0/277000, ; INTO SHARE POINTER 

8410 HOLD RIGHT, ; . . 

8411 J/PF45 ;G0 BACK AND TRY AGAIN 

8412 PAGE FAIL TRAP ;POINTER LOOP 
8413 

8414 =0** 

8415 PTRSHR: CALL [RDPT] ;G0 LOOK AT POINTER 

8416 TL [AR], ;BITS 12-17 .EQ. O? 

8417 0/77 
8418 

8419 ; HERE WITH FINAL POINTER. SKIP IF 12-17 NOT EQUAL TO ZERO 

8420 =00 

8421 PF80: PAGE FAIL TRAP ; NO- -TAKE A TRAP 

8422 .IFNOT/NOCST 

8423 [ ARX ]__[ AR ] . AND . CLR LH, ;SAVE PHYSICAL PAGE 

8424 0/3777, ; MASK TO 13 BITS 

8425 CALL [UPCST] ; UPDATE CSTO 

8426 . ENDI F/NOCST 

8427 ; HERE WE HAVE CST ENTRY IN AR, PAGE FAIL WORD IN BRX. GO LOOK 

8428 ; AT WRITABLE AND WRITTEN BITS 

8429 =11 

8430 PF90: [ BRX ]_[BRX ] . OR . , TRANSLATION IS VALID 

8431 0/100000, HOLD RIGHT ; .. 

8432 TL [ FLG] , FLG.W/1 ; IS THIS PAGE WRITABLE? 

8433 =0 [BRX]_[BRX] . OR . , ; YES- - INDICATE THAT IN PFW 

8434 0/020000, 

8435 J/PF100 ;NOT WRITE VIOLATION 

8436 TL [BRX], ;IS THIS A WRITE REF? 

8437 WRITE TEST/1, WRITE CYQLE/1 

8438 =0 PAGE FAIL TRAP ;WRITE VIOLATION 

8439 PF107: 

8440 .IFNOT/NOCST 

8441 [AR]_JAR] . OR . WORK [ PUR ] , ; PUT IN NEW AGE 

8442 J/PF110 ;G0 TO STORE CST ENTRY 

8443 . ENDIF/NOCST 

8444 . I F/NOCST 

8445 PFDONE: TR [FLG] , 

8446 0/400000, 

8447 J/PF140 

8448 .ENDIF/NOCST 
8449 

8450 =0* 

8451 PFTICK: [ AR ]_WORK[TIME 1 ] , ; UPDATE TIMER 

8452 SPEC/CLRCLK, CALL [TOCK] 

8453 [AR]_WORK[SV. AR1 ] , ; RESTORE AR 

8454 J/PTRIND ;G0 TRY AGAIN 
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8456 
8457 
8458 
8459 
8460 
8461 
8462 
8463 
8464 
8465 
8466 
8467 
8468 
8469 
8470 
8471 
8472 
8473 
8474 
8475 
8476 
8477 
8478 
8479 
8480 
8481 
8482 
8483 
8484 
8485 
8486 
8487 
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;STILL . I F/KLPAGE 
; HERE IF PAGE IS WRITABLE 
PF100: TL [BRX] , WRITE CYCLE/1 
=0 [ AR ]_[ AR ] . OR . # , 

HOLD LEFT, 
J/PF105 
TR [AR], 
#/1 

=0 

PF105: [BRX ]_[BRX ] . OR . # , 
0/040000, 
HOLD RIGHT, 
J/PF107 

[FLG]_[FLG] . AND .NOT . # , 

FLG.W/1, 

HOLD RIGHT, 

J/PF107 
. IFNOT/NOCST 
=0** 
PF1 10: 

. IFNOT/INHCST 

START NO TEST WRITE, 

CALL [IBPX] 
. ENDI F/INHCST 
. IF/INHCST 

SKIP NO CST, 

CALL [WRCST] 
. ENDI F/INHCST 

. ENDIF/KLPAGE 



Page 234 



;IS THIS A WRITE REF? 
;YES--SET WRITTEN BIT 



;NOT WRITE, ALREADY WRITTEN? 



WRITTEN SET BIT 

MARK PAGE AS 

WRITABLE 

STORE CST WORD 

NOT WRITTEN, CAUSE TRAP ON 

WRITE ATTEMPT 
ONLY CLEAR LH 



; STORE CST ENTRY 
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U 3637, 2522,4553,1300,4374,4007,0331,0000,0040,0000 

U 2522, 2524,3441,0403,4174,4007,0700,2000,0071,0007 
U 2523, 3644,3771,0003,7274,4007,0701,0000,0000,0210 

U 2524, 2524,3445,0303,4174,4007,0630,2000,0060,0000 

U 2525, 3640,4551,0303,4374,0007,0700,0000,0000,0003 
U 3640, 3641,4221,0013,4170,4007,0700,0000,0000,0000 

U 3641, 3642,3551,0606,4374,0007,0700,0000,0010,0000 
U 3642, 2526,4553,1300,4374,4007,0321,0000,0000,4000 

U 2526, 2527,3551,0606,4374,0007,0700,0000,0000,2000 

U 2527, 3643,4551,0606,4370,4007,0700,0000,0000,0777 

U 3643, 1500,31 1 1 ,0603,4174,4003,7700,0200,0003,0001 
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'8488 

8489 ; HERE WHEN WE HAVE FIGURED OUT PHYSICAL ADDRESS (IN ARX) AND FLAGS 

8490 ; (IN BRX) RELOAD PAGE TABLE. 

8491 PFDONE: TR [ FLG] , ;MAP INSTRUCTION? 

8492 #/400000 

8493 . ENDI F/NOCST 

8494 =0 

8495 PF140: [AR]_[ARX], ; GET PHYSCIAL PAGE # 

8496 SC_7, ; PREPARE TO CONVERT TO 

8497 •' 0/PF130 ; WORD ADDRESS 

8498 [AR]_WORK[SV. VMA ] , ; RESTORE VMA 

8499 J/PF120 

8500 =0 

8501 PF130: [AR]_[AR]*2, ;CONVERT TO WORD # 

8502 STEP SC, 

8503 J/PF130 

8504 [AR]_[AR] . AND . # , ; JUST ADDRESS BITS 

8505 #/3, 

8506 HOLD RIGHT 

8507 END MAP ; CLEAR MAP FLAGS 

8508 [BRX]_[BRX] .0R.#, ; TURN ON THE TRANSLATION 

8509 #/100000, ; VALID BIT 

8510 HOLD RIGHT ; IN LEFT HALF ONLY 

8511 TL [FLG], FLG.C/1 ; CACHE BIT SET? 

8512 =0 [BRX]__[BRX] .0R.#, ;YES--SET IN MAP WORD 

8513 1/002000. 'HOLD RIGHT ; . . 

8514 [BRX]_[BRX] . AND. # , ; PRESERVE WORD # 

8515 #/777, HOLD LEFT ; IN PAGE FAIL WORD 

8516 [AR]_[AR] .OR. [BRX] , ; COMPLETE MAP INSTRUCTION 

8517 EXIT 
8518 
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U 3644, 3645,3441,0305,4174,4007,0700,0000,0000,0000 



U 3645 , 3646 ,5551, 0305 , 4374 , 0007 , 0700 , 0000 , 0007 , 0000 

U 3646, 3647,3443,0500,4174,4007,0701,0200,0000,0030 

U 3647 , 3650 ,4251, 0404 , 4374 , 4007 , 0700 , 0000 , 0000 ,3777 

U 3650, 3651,3551,0406,4374,4007,0700,0000,0040,0000 

U 3651, 2530,4553,1300,4374,4007,0321,0000,0002,0000 

U 2530, 2531,3551,0606,4374,4007,0700,0000,0004,0000 

U 2531, 2532,4553,1300,4374,4147,0321,0000,0000,4000 



U 2532 , 3652 , 355 1 , 0606 , 4374 , 4007 , 0700 , 0000 , 0002 , 0000 

U 2533, 3652,3333,0006,4174,4007,0700,0000,0000,0000 

U 3652, 3653,3771,0004,7274,4007,0701,0000,0000,0212 

U 3653, 3654,3771,0005,7274,4007,0701,0000,0000,0213 

U 3654, 3655,3771,0006,7274,4007,0701,0000,0000,0214 



U 3655 , 3656 , 3443 , 0300 ,4174, 4007 , 070 1 , 0200 , 0000 , 0032 



U 3656, 0000,3771,0003,7274,4004,1701,0000,0000,0211 
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8519 
8520 
8521 
8522 
8523 
8524 
8525 
8526 
8527 
8528 
8529 
8530 
8531 
8532 
8533 
8534 
8535 
8536 
8537 
8538 
8539 
8540 
8541 
8542 
8543 
8544 
8545 
8546 
8547 
8548 
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PF120: 



=0 



PF125: 



[BR ]_[ AR ] 

[BR]_[AR] .AND. NOT. #, 
READ CYCLE/1 , 
WRITE CYCLE/1 , 
WRITE TEST/1 , 
HOLD RIGHT 
VMA_[BR], 3T, 
DP FUNC/1 

[ARX]_[ARX] . AND. # CLR LH 

#/3777 

[BRX]_[ARX] .0R.#, 
TL [FLG], FLG.W/1 
[BRX]__[BRX] .0R.#, 
TL [FLG], FLG.C/1 
LOAD PAGE TABLE 



COPY PAGE FAIL WORD 

CLEAR BITS WHICH START A CYCLE 



JUST DO LEFT HALF 
RESTORE VMA 

SET USER ACCORDING TO WHAT IT WAS 
;JUST KEEP PAGE H 



[BRX]_[BRX] .0R.#, 

0/020000, J/PF125 

READ [BRX] 

[ ARX ]_WORK [ SV . ARX ] 

[BR]_WORK[SV.BR] 

[BRX]_WORK[SV.BRX] 

VMA_[AR] , 

DP FUNC/1 , 3T, 

WAIT/1 



[ AR ]_WORK[ SV . AR ] , 
RETURN [0] 



#/400000 ;SET VALID BITS 

; WANT WRITE SET? 
0/040000 ;SET WRITE BIT 
WANT CACHE SET? 
LOAD PAGE TABLE ON NEXT 

MICRO INSTRUCTION 
SET CACHE BIT 
CACHE BIT 
LOAD PAGE TABLE 



MAKE MEM REQUEST 

FROM DATA PATH 

WAIT FOR PREVIOUS CYCLE TO 
COMPLETE. (NEED THIS TO 
START ANOTHER CYCLE) 
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8549 . I F/KLPAGE 

8550 .IFNOT/NOCST 

8551 SUBROUTINE TO START CST UPDATE 

8552 ; CALL WITH: 

8553 ; AR/ PHYSICAL PAGE NUMBER 

8554 ; RETURN 2 WITH ENTRY IN AR, PAGE FAIL IF AGE TOO SMALL 

8555 . IFNOT/INHCST 

8556 =0** 

8557 UPCST: [ AR ]_[ AR ]+WORK[CBR] , ; ADDRESS OF CSTO ENTRY 

8558 CALL [RDPT] ; READ OLD VALUE 

8559 TL [AR] , ;0 - 5 = O? 

8560 #/770000 ; - - 

8561 =0 [AR]_[AR] . AND . WORK[CSTM] , ; CLEAR AGE FIELD 

8562 RETURN [2] ; AGE IS NOT ZERO 

8563 PAGE FAIL TRAP ; AGE TOO SMALL 

8564 . ENDI F/INHCST 

8565 .IF/INHCST 

8566 UPCST: SKIP NO CST ;SEE IF A CST IS PRESENT 

8567 =0*0 [AR]_[AR]+WORK[CBR] , ;YES, ADDRESS OF CSTO ENTRY 

8568 CALL [RDPT] ; READ OLD VALUE 

8569 [AR] O, RETURN [2] ;N0 CST, RETURN 

8570 TL [AR], ;CHECK AGE FIELD 

8571 #/770000 

8572 = 

8573 =0 [AR]_[AR] . AND . WORK [CSTM] , ; CLEAR AGE FIELD 

8574 RETURN [2] ; AGE IS NOT ZERO 

8575 PAGE FAIL TRAP ; AGE TOO SMALL 
8576 

8577 =0 

8578 WRCST: START NO TEST WRITE, 

8579 J/IBPX 

8580 RETURN [4] 

8581 . ENDIF/INHCST 

8582 . ENDI F/NOCST 
8583 
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;8584 
;8585 
;8586 
;8587 
;8588 
;8589 
;8590 
;8591 
;8592 
;8593 
;8594 
;8595 
;8596 
;8597 
;8598 
;8599 
;8600 
;8601 
;8602 
;8603 
;8604 
;8605 
;8606 
;8607 
;8608 
;8609 
;8610 
;861 1 
;8612 
;8613 
;8614 
;8615 
;8616 



STILL . I F/KLPAGE 

SUBROUTINE TO LOOK AT PAGE POINTER 
CALL WITH POINTER IN AR 
RETURNS 1 IF TYPE 1 
RETURNS 2 IF TYPE 2 
RETURNS 3 IF TYPE 3 
GOES TO PFT IF TYPE O OR 4 THRU 
SETPTR: [ ARX ]_[ AR ] . OR . # , 
0/753777 

[FLG]_[FLG] .AND. [ARX] , 
HOLD RIGHT 
READ [AR], 
SKIP DPO 
TL [AR], 
0/300000, 
J/STPTR 1 
PAGE FAIL TRAP 



STPTR1: TL [AR], 
0/100000, 
J/STPTR2 
PAGE FAIL TRAP 



=0 

STPTR2: 



=0 

STPTR3: 



TL [AR], 
0/200000, 
J/STPTR3 
RETURN [2] 



RETURN 
RETURN 



[3] 
[1] 



7 

AND 
OF 

KEEP 
TYPE 



C AND W BITS 
ALL POINTERS 

IN LH OF FLG 
4,5,6 OR 7? 



HERE WE TEST FOR TYPE 

ZERO POINTER 
CHECK AT STPTR1 
BAD TYPE 



NOT ZERO 
SEPERATE TYPE 

TYPE O 



SEPERATE TYPE 1 
AND 3 



TYPE 2 



; TYPE 3 
; TYPE 1 
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o 



o 

i 
I 
1 



VI 

I 

E 



i 
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8617 
8618 
8619 
8620 
8621 
8622 
8623 
8624 
8625 
8626 
8627 
8628 
8629 
8630 
8631 
8632 
8633 
8634 
8635 
8636 
8637 
8638 
8639 
8640 
8641 
8642 
8643 
8644 
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STILL . I F/KLPAGE 

SUBROUTINE TO FETCH A P^GE POINTER OR CST ENTRY 
CALL WITH ADDRESS IN AR 
RETURN 4 WITH WORD IN AR 



RDPT: VMA_[AR], 

START READ, 
VMA PHYSICAL, 
SKIP IRPT 
=0 MEM READ, 

[ AR ]_MEM , 
RETURN [4] 
PAGE FAIL TRAP 



LOAD THE VMA 
START MEM CYCLE 
ABSOLUTE ADDRESS 
CHECK FOR INTERRUPTS 
NO INTERRUPTS 
PUT THE DATA INTO AR 
AND RETURN 
INTERRUPT 



SUBROUTINE TO SEE IF WE SHOULD REMEMBER AN EXEC SECTION PTR 
; CALL WITH SKIP ON ADR.EQ.O 

; RETURNS 2 IF WE SHOULD STORE AND 7 IF WE SHOULD NOT 
=0 

SHDREM: RETURN [7] 

[AR]_.NOT. [FLG] 

TL [AR], FLG.W/1, 
=0 RETURN [7] 

RETURN [2] 

. ENDI F/KLPAGE 



; INDIRECT PTR 
;FLIP BITS 
FLG.C/1 ; BOTH BITS SET 
;NO--DON'T STORE 
; STORE 
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U 3657 , 2534 , 3333 , 0006 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 2534, 2536,1553,0500,4374,4007,0532,4000,0000,0340 

U 2535, 3660,0111,1104,4174,4007,0700,0200,0024,1016 

U 2536 , 2540 ,1553, 0500 , 4374 , 4007 , 0532 , 4000 , 0000 , 0400 

U 2537, 2540,0551,0404,4374,4007,0701,0000,0000,0600 



U 2540, 3660,01 1 1 , 1004,4174,4007,0700,0200,0024, 1016 

U 2541, 2535,0551,0404,4374,4007,0701,0000,0000,0220 

U 3660 , 366 1,3771, 0004 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 3661, 2542,4553,0500,4374,4007,0331,0000,0000,0001 
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8645 
8646 
8647 
8648 
8649 
8650 
8651 
8652 
8653 
8654 
8655 
8656 
8657 
8658 
8659 
8660 
8661 
8662 
8663 
8664 
8665 
8666 
8667 
8668 
8669 
8670 
8671 
8672 
8673 
8674 
8675 
8676 
8677 
8678 
8679 
8680 
8681 
8682 
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. I F/KIPAGE 

; HERE IN KI 10 MODE 

; BR CONTAINS PAGE AND ARX CONTAINS PAGE 0/2 



KIFILL: READ [BRX], 

SKIP DPO 
=0 [BR]-0, 

0/340, 

SKIP DP18, 4T, 
J/KIF10 
KIUPT: [ARX]_[ARX]+[UBR] , 
LOAD VMA, 
VMA PHYSICAL, 
START READ, 
J/KIF30 



=0 

KIF10: 



=0 

KIEPT: 



KIF30: 



[BR]-0, 
#/400, 

SKIP DP18, 4T, 

J/KIEPT 

[ARX]_[ARXj+0, 

0/600, 

J/KIEPT 



3T, 



[ARX]_[ARX] + [EBR] , 

LOAD VMA, 

START READ, 

VMA PHYSICAL, 

J/KIF30 

[ARX]_[ARX]+0, 

0/220, 3T, 

J/KIUPT 

MEM READ, 

[ARX]_MEM 

TR [BR], 

0/1 



USER REF? 

EXEC- -LESS THAN 340? 



FOLLOW EXEC PATH 

POINTER TO PAGE MAP ENTRY 

PUT ADDRESS IN VMA 

ABSOLUTE ADDRESS 

FETCH UPT WORD 

JOIN COMMON CODE 

EXEC ADDRESS .GE. 340 
SEE IF .GT. 400 

LOOK AT KIF20 

EXEC ADDRESS . LT . 340 

IN EBR+600 

JOIN COMMON CODE 



ADD OFFSET TO 

EPT 
START FETCH 
ABSOLUTE ADDRESS 
GO GET POINTER 
PER PROCESS PAGE 

IS IN UPT + 400 
JOIN COMMON CODE 
WAIT FOR DATA 
PLACE IT IN ARX 
SEE IF EVEN OR ODD 
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U 2542, 2544,3333,0004,4174,4007,0530,0000,0000,0000 
U 2543, 2542,3770,0404,4344,4007,0700,0000,0000,0000 

U 2544, 2560,4553,1300,4374,4007,0321,0000,0001,0000 

U 2545, 3662,5551,1313,4374,4007,0700,0000,0002,4000 
U 3662, 2546,4553,0400,4374,4007,0331,0000,0002,0000 

U 2546, 2547,3551,1313,4374,0007,0700,0000,0000,4000 
U 2547, 2550,4553,0400,4374,4007,0331,0000,0004,0000 

U 2550, 2551 ,3551 ,0606,4374,0007,0700,0000,0002,0000 
U 2551, 2552,4553,0400,4374,4007,0331,0000,0010,0000 

U 2552, 3663,3551,1313,4374,0007,0700,0000,0002,0000 
U 2553, 2554,4553,0600,4374,4007,0321,0000,0001,0000 

U 2554, 2544,3551,0606,4374,0007,0700,0000,0010,0000 
U 2555, 3637,4443,0000,4174,4007,0700,0000,0000,0000 

U 3663, 3637,3551,0606,4374,4007,0700,0000,0004,0000 



1,(254) 
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8683 ;STILL . I F/KIPAGE 

8684 =0 

8685 KIF40: READ [ARX], ;ODD 

8686 SKIP DP18, ;SEE IF VALID 

8687 J/KIF50 ;JOIN COMMON CODE 

8688 [ARX]_[ARX] SWAP, ; EVEN — FLIP AROUND 

8689 J/KIF40 ; AND CONTINUE 
8690 

8691 . ENDI F/KIPAGE 

8692 =0 

8693 KIF50: PAGE FAIL TRAP 

8694 ; AT THIS POINT WE HAVE THE PAGE MAP ENTRY IN RH OF AR 

8695 [ FLG] [ FLG] . AND . NOT . ft , ; CLEAR W AND C 

8696 FLG.W/1, FLG.C/1 ; FLAGS 

8697 TR [ARX], #/020000 ;CACHE ENABLED? 

8698 =0 [ FLG]_[ FLG] . OR . # , ; SET CACHE BITS 

8699 FLG.C/1, HOLD RIGHT ; 

8700 TR [ARX], #/040000 ; DO NOT CACHE 

8701 ;SEE IF CACHE BIT SET 

8702 =0 [BRX]_[BRX] .0R.#, ;COPY BITS TO BRX 

8703 #/020000, 

8704 HOLD RIGHT 

8705 TR [ARX] , ; . . 

8706 #/ 100000 

8707 =0 [ FLG]__[ FLG ] . OR . # , ; SAVE W 

8708 FLG.W/1, ; .. 

8709 HOLD RIGHT, ; . . 

8710 J/KIF90 ; ALL DONE 

8711 TL [BRX], ;W=0, WRITE REF? 

8712 WRITE CYCLE/1 

8713 =0 

8714 KIF80: [BRX]__[BRX] . OR . ft , ;WRITE FAILURE 

8715 #/1000O0, HOLD RIGHT, ; INDICATE THAT ACCESS WAS ON 

8716 U/KIF50 ; GO PAGE FAIL 

8717 J/PFDONE ; ALL DONE 
8718 

8719 KIF90: [BRX ]_[BRX] . OR . ft , ; PAGE IS WRITABLE 

8720 #/40000, ; TURN ON IN BRX 

8721 J/PFDONE ; ALL SET 
8722 




; T10KI .MCR[ 10, 1 141 ] 11:45 11-AUG-1984 MICRO 

; PAGEF.MIC[ 10, 1 141 ] 12:32 26-JULY-1984 

U 3664, 2556,3333,0005,7174,4007,0700,0400,0000,0213 
U 2556, 3670,3771,0005,4354,4007,0700,0010,0000,0000 

U 2557, 3665,4551 ,0505,4374,0007,0700,0000,0040, 1237 
U 3665, 2544,3111,0506,4174,4007,0700,0000,0000,0000 
U 3666, 1 1 14,4443,0000,4174,4007,0370,0000,0000,0000 



U 1114, 3461,3771 
U 1115, 2561,4443 
U 1116, 3667,4223 



0003,7274,41 17,0701 ,0010,0000,0301 
0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
0000 , 4364 , 4277 , 0700 , 0200 , 0000 , 00 1 



U 3667, 3652,3771,0003,7274,4007,0701,0000,0000,0210 



U 3670, 0001,4223,0000,4364,4274,1700,0200,0000,0010 
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8723 ; HERE ON HARD PAGE FAILURES 

8724 HARD: W0RK[ SV . BR ]_[ BR ] ; SAVE BR (CLEANUP MAY NEED IT) 

8725 =0 [BR ]_VMA , ;BUILD PAGE FAIL WORD 

8726 CALL [ABORT] ; CLEAR ERROR 

8727 [BR ]_[BR ] . AND . # , ; SAVE THE FLAGS 

8728 #/401237, ; .. 

8729 HOLD RIGHT ; . . 

8730 [BRX]_[BRX] .OR. [BR] , ; COMPLETE PAGE FAIL WORD 

8731 J/KIF50 ;G0 TRAP 

8732 / 

8733 PFPI1: SKIP IRPT / ; TIMER TRAP? 

8734 =00 

8735 [AR]_W0RK[TIME1 ] , ; YES" -GET LOW WORD 

8736 SPEC/CLRCLK, ; CLEAR CLOCK FLAG 

8737 CALL [TOCK] ;D0 THE UPDATE 

8738 J/PFT1 ; EXTERNAL INTERRUPT 

8739 ABORT MEM CYCLE ; CLEAR 1MS FLAGS 

8740 = 

8741 PFPI2: [ AR ]_W0RK [ SV . VMA ] , ; RESTORE VMA 

8742 J/PF125 
8743 

8744 

8745 ABORT: ABORT MEM CYCLE, RETURN [1] 
8746 
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U 2560, 0104,4751,1217,4374,4007,0700,0000,0000,0100 

U 2561, 2562,3771,0003,7274,4007,0611,0000,0000,0210 

U 2562, 2564,4553,0300,4374,4007,0321,0000,0010,0000 

U 2563, 3671 ,3771 ,0003,7274,4007,0701 ,0000,0000,0425 

U 3671, 2566,3333,0003,4174,4467,0700,0000,0000,0004 

U 2564 , 1 100 , 4443 , OOOO, 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 

U 2565, 2566,1111,0701,4170,4007,0700,4000,0000,0000 

U 2566, 1 100,3333,0013,4174,4003,5701 ,0000,0000,0000 



U 1100, 2570,4221,0013,4170,4007,0370,0000,0000,0000 

U 1101, 3051,3771,0003,7274,4007,0701,0000,0000,0212 

U 1102, 3674,0111,0701,4174,4007,0700,0000,0000,0000 

U 1103, 3366,3771,0013,4370,4007,0700,0000,0000,0011 

U 1 104, 3366,3771 ,0013,4370,4007,0700,0000,0000,0012 

U 1105, 2272,3771,0013,4370,4007,0700,0000,0000,0003 

U 1 106, 3375,3771 ,0013,4370,4007,0700,0000,0000,0012 

U 1 1 07 , 3372 , 377 1 , 00 1 3 , 4370 , 4007 , 0700 , 0000 , 0000 , 00 1 1 

U 111Q, 3364,3771,0013,4370,4007,0700,0000,0000,0011 

U 1111, 2270,4221,0013,4170,4007,0700,0000,0000,0000 

U 1112, 2272,4221 ,0013,4170,4007,0700,0000,0000,0000 

U 1113, 2272,3771 ,0013,4370,4007,0700,0000,0000,001 1 
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8747 


; HERE ON PAGE FAIL TRAP 






8748 


-U 










PFT : 


HALT I IuPr J 


;I0 PAGE FAILURE 


8750 


PFT 1 : 


I AR J_W0RK L 5V , VMA J , 






875 1 




SKIP/TRAP CYCLE 


;SEE 


IF TRAP CYCLE 


8752 


=0 


TL LARJ, FETCH/1, 


;IS THIS AN INSTRUCTION FETCH 


8753 




J/PFT 1 A 


;G0 LOOK BELOW 


8754 




L AR J_WuRK L TRAPPC J 


; RESTORE PC 


07CC 




nr »n r ADl 1 n A n ri »r>r 

KfcAD LAKJ, LOAD FLAGS, 


d/CLDISP 


8756 


=0 








07E7 


PFT 1 A : 


u/ CLEANED 


;YES- 


-NO PC TO BACK UP 


8758 


F IXPC : 


I PC J_L PC J - 1 , HOLD LEFT 


; DATA FAILURE- -BACKUP PC 


8759 


=0 








8760 


CLDI 5P : 


/"»! C AMI ID r\T Cn 

CLEANUP DISP 


;G0 CLEANUP AFTER PAGE FAIL 


876 1 


=0000 








8762 


CLEANUP 








8763 


CLEANED 




;(0) 


NORMAL CASE 


8764 




END STATE, SKIP IRPT, 


;N0 MORE CLEANUP NEEDED 


8765 




U/PFT2 


; HANDLE PAGE FAIL OR INTERRUPT 


8766 




L AR J_wORK L SV . ARX J , 


;(D 


BLT 


8767 




U/BLT- CLEANUP 






8768 




I Pt- J__l PC J + 1 , 


;(2) 


MAP 






U/MAPDON 






8770 




ctatf r cnTT-CDr 1 
o 1 A I t LfcUJ. 1 bKL-J , 


;(3) 


SRC IN STRING MOVE 


Q774 




. 1 /CTDDC 

u/ b 1 KPr 






Q770 




ctatp frnTT-ncTl 


;(4) 


DST IN STRING MOVE 


0770 




U/ o 1 Krr 






P774 






;(5) 


SRC+DST IN STRING MOVE 


077c 










Q77C 




ctatc rcnTT-ncTl 
o I A I t_^L tui 1 Uo 1 J , 


;(6) 


FILL IN MOVSRJ 


inn 

Off/ 




U/ STRPF4 






8778 




CTATC FChTT.CDrl 


;(7) 


DEC TO BIN 


Q 77Q 




J/PFDBIN 






8780 




STATE [EDIT-SRC], 


;(10) 


SRC+DST IN COMP 


8781 




d/CMSDST 






8782 




END STATE, j/BACKS 


;(1D 


EDIT SRC FAIL 


8783 




END STATE, U/BACKD 


;(12) 


EDIT DST FAIL 


8784 




STATE [EDIT-SRC], 


;(13) 


SRC+DST IN EDIT 


8785 




J/BACKD 






8786 










8787 
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U 2570, 3672,0551,1103,4374,4007,0701,0000,0000,0500 

U 2571, 0770,3551,1313,4374,0007,0700,0000,0001,0000 

U 3672, 2572,3443,0300,4174,4007,0700,0200,0021,1016 

U 2572, 3676,3333,0006,4175,5007,0701,0210,0000,0002 



U 2573, 3673,3741,0105,4074,4007,0700,0000,0000,0000 

U 3673, 3675,3333,0005,4175,5007,0701,0200,0000,0002 

U 3674 , 2574 , 422 1 , 00 1 3 , 4 1 70 , 4007 , 0370 , 0000 , 0000 , 0000 

U 2574 , 1 500 , 344 1 , 0603 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 

U 2575, 2571,1111,0701,4174,4007,0700,4000,0000,0000 
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8788 


=0 




8789 


PFT2 : [AR] [UBR]+#, 


; PREPARE TO STORE PFW 


8790 


#/500, 3T, 




8791 


J/PFT10 




8792 


PFT3: TAKE INTERRUPT 


; PROCESS INTERRUPT 


8793 


PFT10: VMA [AR], 


; WHERE TO STORE PFW 


8794 


VMA PHYSICAL WRITE 




8795 


=0 MEM WRITE, 


; STORE PFW 


8796 


MEM [BRX], 




8797 


CALL [NEXTAR] 


; ADVANCE POINTER TO 


8798 




; PREPARE TO STORE PC 


;8799 


. IF/KLPAGE 




,-8800 


. I F/KIPAGE 




;8801 


TL [EBR], #/400000 


;KL PAGING? 


;8802 


=0 




;8803 


. ENDI F/KIPAGE 




;8804 


[BR] FLAGS, J/EAPF 


;YES--DO EXTENDED THING 


8805 


. ENDIF/KLPAGE 




8806 






8807 


. I F/KIPAGE 




8808 


[BR] PC WITH FLAGS 


; GET OLD PC 


8809 


MEM WRITE, 


; STORE OLD PC 


8810 


MEM [BR], 




881 1 


J/EAPF 1 




8812 


. ENDI F/KIPAGE 




8813 






8814 


MAPDON: END STATE, 


; CLEAR MAP BIT 


8815 


SKIP IRPT 


; ANY INTERRUPT? 


8816 


=0 [AR] [BRX], 


; RETURN PAGE FAIL WORD 


8817 


EXIT 




8818 


[PC] [PC]-1, J/PFT3 


INTERRUPTED OUT OF MAP 


8819 




; RETRY INSTRUCTION 


8820 
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U 3675, 2625,0111,0703,4174,4007,0700,0200,0024,1016 
U 3676, 0001,0111,0703,4170,4004,1700,0200,0023,1016 



8821 
8822 
8823 
8824 
8825 
8826 
8827 
8828 
8829 
8830 
8831 
8832 
8833 
8834 



; STORE FLAGS 
; STORE PC WORD 



. I F/KLPAGE 
=0 

EAPF: MEM WRITE, MEM_[BR ] , 
CALL [NEXTARJ 
MEM WRITE, MEM_[PC] 

. ENDI F/KLPAGE 

EAPF 1 : [AR]_JAR] + 1 , 

VMA PHYSICAL READ, 
J/GOEXEC 



NEXTAR: NEXT [AR] PHYSICAL WRITE, RETURN [1] 



Number of microwords used: 
D words= 512 

U words= 1954, Highest* 2047 



END 



; T10KI .MCR[ 10, 1 141 ] 
(U) A 

AR 



ARX 



BR 



-AUG- 


1984 


MICRO 


31(254) 


KS10 


MICROCODE 


V124, 27- 


-JUL-84 


Page 


246 














Cross 


Reference 


Listing 












636 # 
























640 U 


2388 


2426 


2456 


2457 


2520 


2568 


2576 


2715 


27 17 


2720 


2723 


2726 


2729 


2813 


2823 


2838 


2855 


2865 


2875 


2885 


2916 


2926 


2936 


2971 


2983 


2990 


2994 


3004 


3005 


3007 


3009 


3010 


3018 


3041 


3042 


3268 


3273 


3275 


3287 


3290 


3293 


3298 


3299 


3369 


3386 


3388 


3453 


3456 


3524 


3525 


3531 


3551 


3578 


3593 


3629 


3640 


3652 


3706 


3729 


3734 


3769 


3813 


3817 


3824 


3826 


3986 


3991 


4021 


4056 


4070 


4086 


4097 


4100 


4103 


4117 


4144 


4145 


4150 


4167 


4183 


4203 


4315 


4324 


4329 


4339 


4345 


4364 


4368 


4386 


4414 


4418 


4420 


4421 


4440 


4472 


4475 


4478 


4492 


4517 


4534 


4535 


4540 


4545 


4553 


4555 


4557 


4628 


4638 


4640 


4645 


4646 


4691 


4696 


4706 


4710 


4748 


4752 


4756 


4760 


4936 . 


4949 


5034 


5037 


5049 


5052 


5058 


5064 


5099 


5174 


5177 


5279 


5285 


5289 


5290 


5320 


5326 


5345 


5351 


5352 


5353 


5354 


5363 


5368 


5388 


5389 


5401 


5403 


5412 


5413 


5433 


5438 


5439 


5445 


5480 


5484 


5486 


5489 


5492 


5496 


5498 


5500 


5502 


5503 


5504 


5505 


551 1 


5513 


5514 


5523 


5528 


5544 


5570 


5578 


5583 


5585 


5629 


5642 


5661 


5670 


5674 


5689 


5703 


5705 


5707 


5713 


5740 


5747 


5750 


5762 


5765 


5773 


5775 


5779 


5784 


5786 


5802 


5807 


5810 


5832 


5835 


5836 


5840 


5958 


5962 


5966 


5973 


5984 


5993 


6008 


6028 


6032 


6045 


6048 


6074 


6158 


6165 


6182 


6204 


6218 


6245 


6256 


6257 


6258 


6271 


6305 


6335 


6346 


6384 


6399 


6427 


6432 


6461 


6462 


6463 


6464 


6466 


6467 


6470 


6475 


6524 


6545 


6552 


6553 


6579 


6617 


6629 


6630 


6637 


6657 


6660 


6663 


6667 


6668 


6670 


6674 


6676 


6730 


6731 


6736 


6737 


6744 


6747 


6751 


6820 


6842 


6848 


6867 


6885 


6889 


6892 


6893 


6894 


6895 


6917 


6942 


6943 


6947 


6953 


6954 


6958 


7028 


7031 


7052 


7054 


7056 


7058 


706 1 


7063 


7065 


7101 


7107 


7115 


71 19 


7122 


7140 


7146 


7148 


7153 


7 169 


7250 


7331 


7333 


7335 


7337 


7339 


7341 


7343 


7345 


7347 


7369 


7375 


7437 


7447 


7453 


7456 


7457 


7474 


7482 


7532 


7543 


7556 


7558 


7584 


7589 


7616 


7619 


7647 


7665 


7666 


7725 


7822 


7830 


7861 


8191 


8201 


8501 


8504 


8519 


8520 


8541 


8752 


8793 












641 n 


2488 


2770 


2771 


3709 


371 1 


3724 


3753 


4083 


4095 


4104 


4105 


4122 


4125 


4127 


4149 


4169 


4185 


4205 


4208 


4228 


4357 


4385 


4437 


4463 


4464 


4543 


4635 


4636 


4644 


4713 


4903 


4910 


491 1 


4939 


4942 


4963 


5093 


51 15 


5287 


5325 


5357 


5543 


5564 


5567 


5627 


5644 


5666 


5686 


5706 


571 1 


5757 


5796 


5803 


6046 


6087 


6094 


6128 


6162 


6212 


6221 


6231 


6240 


6263 


6264 


6272 


6304 


6308 


6385 


6422 


6430 


6434 


6436 


6753 


6756 


6802 


6870 


6944 


7053 


7057 


7059 


7062 


7064 


7093 


7095 


7281 


7294 


7298 


7488 


7671 


7673 


7731 


7958 


8495 


8527 


8529 


8665 


8675 


8688 


8697 


8700 


8705 












3075 


642 # 


2187 


2384 


2419 


2421 


2425 


2906 


3037 


3070 


3071 


3074 


3076 


3077 


3092 


3095 


3098 


3101 


3105 


3108 


31 10 


3142 


3 143 


3 146 


3147 


3428 


3431 


3434 


3437 


3440 


3443 


3446 


3449 


3774 


3779 


3807 


3832 


3840 


3841 


3988 


3993 


4091 


4223 


4388 


4390 


4398 


4402 


4465 


4468 


4542 


4546 


4547 


4548 


4551 


4556 


4587 


4729 


4731 


4790 


479 1 


4792 


4793 


4794 


4801 


4810 


4814 


4823 


4884 


4885 


4886 


4887 


4888 


4909 


4952 


4958 


5061 


5101 


5103 


5113 


51 18 


5202 


5286 


5293 


5294 


5298 


5299 


5355 


5358 


5392 


5443 


5526 


5550 


5552 


5562 


5576 


5655 


5673 


5676 


5912 


5924 


5925 


5927 


5928 


5955 


5964 


6009 


6014 


6039 


6042 


6133 


6198 


6201 


6202 


6215 


6223 


6229 


6352 


6362 


6373 


6382 


6386 


6404 


6457 


6472 


6510 


6521 


6588 


6844 


6845 


6886 


6887 


6927 


6935 


6946 


6950 


7027 


7030 


7050 


7084 


7086 


7089 


•7 A O A 
7131 




/ lO<£ 


7154 


7179 


7180 


7187 


7188 


7194 


7249 


7260 


7267 


7336 


7338 


7340 


7346 


7348 


7384 


.7397 


7494 


7517 


7518 


7519 


7560 


7562 


7590 


7594 


7596 


7600 


7602 


7626 


7632 


7723 


8199 


8263 


8266 


8279 


8525 


8651 


8661 


8680 


8727 


8730 
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BRX 


643 ff 


4119 


4 147 


4 1 53 


4224 


4247 


4267 


4271 


4275 


4279 


4285 


4289 


4293 


4297 


4374 


4427 


4467 


4579 


4582 


4593 


5040 


5092 


5121 


5129 




5136 


5160 


5245 


5248 


5318 


5319 


5321 


5360 


5365 


5555 


5572 


5638 




5652 


5653 


5695 


5916 


6015 


6085 


6096 


6097 


6121 


6170 


6178 


6259 




6288 


630 1 


6310 


6315 


6323 


6325 


6334 


6340 


6345 


6357 


c; o o c 

0030 


OO 30 




64J6 


6425 


6452 


6454 


6456 


6487 


6490 


6506 


6518 


6520 


6600 


6602 




6605 


667 1 


6678 


6772 


6776 


6780 


6784 


6788 


6792 


6808 


7076 


7196 




7 197 


7 1 98 


7296 


7446 


7501 


7502 


7565 


7648 


8195 


8248 


8249 


8252 




8258 


8260 


8508 


85 12 


8514 


8516 


8531 


8535 


8702 


8711 


8714 


8719 


CD D 
CDK 


88 16 
645 ff 


6974 


7177 


7449 


7492 


8670 










5812 


5819 


FLG 


648 ff 


3620 


□ Uu / 


5608 


5609 


56 16 


5743 


5746 


5749 


5752 


5820 


6596 


8245 


849 1 


85 1 1 


8530 


8532 


8693 


8695 


8698 


8707 


8792 


HR 


639 ff 


2288 




9 "3 no 


2306 


2315 


2319 


2328 


2333 


2434 


2782 


2787 


3528 


3537 


O iJ M- W 


3542 


3543 


3544 


3563 


3567 


3577 


3582 


3585 


3605 




3626 


3639 


QQ 1 P 

o ;? 1 o 




3922 


3924 


3926 


3928 


3930 


3932 


3938 


4036 




5914 


6907 


6984 


6990 


6999 


7000 


7001 


7005 


7006 


7007 


7008 


7013 




7014 


7015 


701 8 


7019 


7020 


702 1 


7022 


7023 


7024 


7025 


7217 


7239 




7334 


7650 


7664 


7793 


7802 


7804 


7806 


7808 


7810 


7812 




4212 


MAG 


637 ff 


2423 


4 1 29 


4 132 


4151 


4 154 


4155 


4168 


4174 


4176 


4210 


42 14 


4392 


44 10 


4432 


4436 


4439 


4480 


4482 


4483 


4610 


4615 


4620 




4626 


4627 


5222 


5223 


5546 


5637 


5692 


5718 


5753 


5788 


5792 


5794 


MASK 


647 ff 


2 1 49 


2 1 50 


2151 


2154 


2157 


2190 


2201 


2237 


2241 


2244 


2247 


2256 


2259 


2262 


2265 


2516 


2739 


2760 


2967 


3015 


3579 


3627 


3641 




3662 


3942 


3982 


3985 


4030 


4090 


4226 


4260 


4394 


4405 


4433 


4558 




4770 


4890 


4901 


5207 


5227 


5228 


5229 


5243 


5448 


5508 


5581 


5631 




572 1 


5790 


5879 


588 1 


5883 


5885 


5887 


5889 


5891 


5893 


5895 


6130 




6132 


6 1 54 


6269 


659 1 


7248 


7291 


7292 


7293 


7427 


7428 


7429 


7430 




7431 


7432 


7433 


7439 


7458 


7468 


7486 


7500 


7578 


7581 


7617 


7628 




7634 


765 1 


77A7 


7860 


8224 


8226 


8240 


8749 








3403 


ONE 


644 ff 


2179 


2183 


2228 


2230 


2275 


2362 


2413 


2416 


2946 


3337 


34 19 


3486 


qcnn 

O Z3\J\J 


3526 


3535 


3538 


36 1 3 


3631 


3634 


3978 


4025 


4041 




4320 


4735 


5032 


5100 


5141 


5143 


5148 


5165 


5166 


5250 


5251 


5435 




5447 


5522 


567 1 


5829 


5950 


599 1 


6024 


6030 


6051 


6069 


6079 


6098 




6099 


6134 


6 1 35* 


6177 


624 1 


6246 


6309 


6321 


6328 


. 6348 


6355 


6360 




6369 


6379 


6383 


6387 


6388 


6424 


6438 


6449 


6501 


6525 


6619 


6641 




6694 


68 1 7 


6818 


6824 


6846 


6888 


6930 


7255 


7278 


7308 


7360 


7644 




7721 


7846 


7932 


7939 


7942 


7945 


7948 


7951 


8758 


8768 


8818 


8829 




8833 






















3805 


PC 


coo u 
ooo ft 


0007 


223 1 


2249 


2342 


2404 


2429 


3325 


3452 


3457 


3688 


38 1 1 


3829 


4014 


4215 


4217 


4692 


4701 


6963 


7351 


7470 


7622 


7857 


PI 


649 ff 




3592 


3606 


7009 


7010 


7328 


7342 


7344 


7349 


7359 


7361 


7420 


*7 A O 4 
/ 4Z I 


7422 


7423 


7424 


7425 


7426 


7435 










TO 


cc 4 u 
OD 1 ft 


/HOC 


4199 


4435 


4446 


4453 


4456 


4458 


4459 


5563 


5571 


5597 


5599 


5600 


5601 


5604 


5612 


5615 


5617 


5657 


5723 


5731 


5732 


6353 




6420 


7362 


7498 


















5694 


T i 
1 1 


652 ff 


44 1 2 


4552 


5218 


5220 


5224 


5239 


5242 


5587 


5672 


5675 






















8789 






UBR 


646 ff 


3944 


3984 


6966 


7112 


7134 


7186 


7193 


8655 






XW01 


650 # 


3508 


3678 


7484 




















1314 ff 
























DBLAC 


1318 # 


2774 






















DFP 


1324 # 


5533 


5534 


5622 


5683 
















DREAD 


1317 ff 


2765 


2766 


4078 


4079 


4162 


4380 
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; Cross Reference Listing 



(U) 



DSHIFT 


1320 


ft 


2956 


2957 




















FP 


1322 


ft 


5259 


5260 


5261 


5262 


5264 


5265 


5267 


5268 


5269 


5270 


5272 




5273 




5304 


5305 


5306 


5308 


5310 


531 1 


5333 


5334 


5335 


5337 


5339 




5340 




5418 


5419 




















FPI 


1321 


tt 


5263 


5271 


5309 


5338 
















IOT 


1325 


ft 


6995 


6996 


7203 


7524 


7525 


7526 


7527 


7535 


7536 


7537 


7538 




7549 




7550 


7551 


7552 


7817 


7818 


8187 












RD-PF 


1323 


ft 


2546 


2551 


2556 


2561 


2599 


2604 


2609 


2614 


2619 


2624 


2629 




2634 




2641 


2646 


2651 


2656 


2661 


2666 


2671 


2676 


2806 


2816 


2826 




2831 




2848 


2858 


2868 


2878 


2898 


2909 


2919 


2929 


4049 


4063 


411 1 




4136 




4303 


4308 


















2617 


READ 


1315 


tt 


2549 


2554 


2559 


2564 


2583 


2601 


2602 


2606 


2607 


2612 


2622 




2627 


2632 


2637 


2643 


2644 


2648 


2649 


2654 


2659 


2664 


2669 




2674 




2679 


2808 


2809 


2818 


2819 


2828 


2829 


2833 


2834 


2841 


2850 




2851 




2860 


2861 


2870 


2871 


2880 


2881 


2900 


2901 


291 1 


2912 


2921 




2922 




2931 


2932 


3185 


3186 


3187 


3188 


3189 


3190 


3201 


3202 


3203 




3204 




3205 


3206 


3207 


3208 


3219 


3220 


3221 


3222 


3223 


3224 


3225 




3226 




3236 


3237 


3238 


3239 


3240 


3241 


3242 


3243 


3358 


3359 


3360 




3361 




3362 


3363 


3364 


3365 


3375 


3376 


3377 


3378 


3379 


3380 


3381 




3382 




3392 


3393 


3394 


3395 


3396 


3397 


3398 


3399 


3408 


3409 


3410 




3411 




3412 


3413 


3414 


3415 


3646 


4051 


4052 


4065 


4066 


4113 


41 14 




4138 




4139 


4305 


4306 


4310 


4311 


4681 


4682 


4683 


4684 


4685 


5383 


SHIFT 


1319 


tt 


2951 


2952 


2953 
















2653 


WRITE 


1316 


ft 


2548 


2553 


2558 


2563 


261 1 


2616 


2621 


2626 


2631 


2636 




2658 




2663 


2668 


2673 


2678 


2775 


2843 


2844 










ACALU 


1218 


tt 






















3086 


AC+N 


1220 


ft 


2172 


2173 


2180 


2370 


2382 


2488 


2771 


2780 


3021 


3042 




3116 




4083 


4095 


4174 


4176 


4178 


4186 


4188 


4195 


4197 


4209 


4210 




4211 




4212 


4213 


4214 


4326 


4410 


4432 


4436 


4439 


4453 


4454 


4456 




4459 




4478 


4480 


4482 


4483 


4609 


4610 


4613 


4614 


4615 


4618 


4619 




4620 




4626 


4627 


5546 


5637 


5690 


5692 


5698 


5757 


5765 


5803 


5810 




5954 




5962 


5972 


5975 


6005 


6008 


6021 


6028 


6035 


6045 


6083 


6093 




6113 




6128 


6145 


6160 


6162 


6188 


6191 


6193 


6200 


6201 


6202 


6204 




6210 




6212 


6215 


6221 


6223 


6251 


6253 


6254 


6258 


6265 


6266 


6267 




6271 




6272 


6279 


6281 


6286 


6292 


6308 


6319 


6331 


6340 


6346 


6357 




636Q 




6362 


6366 


6379 


6385 


6386 


6509 


6540 


6545 


6550 


658*7 


6589 




6693 




6694 


6806 


6813 


6820 


6839 


6841 


6848 


6868 


6889 


6925 


6927 




6933 




6935 


6939 


6942 


6947 
















B 


1219 


ft 
























ACDISP 


1345 


tt 


3515 


6995 


6996 


7203 
















ACN 


1221 


tt 


2370 


2382 


2488 


2771 


.2780 


3021 


3042 


. 3086 


31 16 


4083 


4095 




4174 




4176 


4178 


4186 


4188 


4195 


4197 


4209 


4210 


421 1 


4212 


4213 




4214 




4326 


4410 


4432 


4436 


4439 


4453 


4454 


4456 


4459 


4478 


4480 




4482 




4483 


4609 


4610 


4613 


4614 


4615 


4618 


4619 


4620 


4626 


4627 




5546 




5637 


5690 


5692 


5698 


5757 


5765 


5803 


5810 


6292 


6308 


6319 




6366 




6385 




















6279 


BINO 


1228 


tt 


2172 


6188 


6210 


6215 


6223 


6254 


6265 


6266 


6267 


627 1 


BIN1 


1229 


tt 


2173 


2180 


6160 


6162 


6191 


6193 


6200 


6201 


6202 


6204 


6212 




6221 




6251 


6253 


6258 


6272 


6281 














DLEN 


1225 


ft 


5954 


5962 


5975 


6005 


6008 


6035 


6045 


6083 


6093 


6128 


6286 


6331 




6340 


6346 


6357 


6360 


6362 


6379 


6386 


6693 


6694 


6806 


6820 




6839 




6939 


6942 


6947 


















DSTP 


1226 


tt 


5972 


6145 


6540 


6545 


6589 


6813 


6868 


6889 


6933 


6935 




MARK 


1227 


ft 


6509 


6587 
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r\o 1 U 
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Cross 




1 1 et 1 nm 
L 1 1. 1 1 iy 












SRCP 


1224 ft 


6021 




6113 


6550 


684 1 


6848 


6925 


• 6927 






2262 


533 8 


2154 


9 1 R7 
Z 1 D / 




99H 1 


2237 


224 1 


2244 


2247 


2256 


2259 




2265 


2319 


ZD I O 


Z 1 o f 


Z t OS? 


97RP. 


2760 


3579 


3662 


3942 


3982 


4030 




4394 


4405 


DZZKJ 


CQ7Q 


COO 4 

Ooo 1 


5883 


5885 


5887 


5889 


5891 


5893 


5895 




5925 


6154 


coco 


ceo 4 


79/1 P. 


70Q 4 


7292 


7293 


7427 


7428 


7429 


7430 




7431 


7432 


/ 4od 


7/1 OQ 

/4oy 


I 'too 


74P.fi 
/ too 


7500 


7578 


758 1 


76 17 


7628 


7634 




7651 


7707 


70CA 


o o o yl 




O04A 


P74Q 










2425 


A 


562 


2149 


2151 


Z<d2 / 


OOO 4 
ZZd 1 


9 94Q 


99Q4 




2333 


2342 


2384 




2426 


2429 


2488 


O COA 


O 77 4 
Z / / 1 


07P7 
Z / & t 


9Q7 1 


2983 


2990 


2994 


3004 


3005 




3007 


3009 


3010 


30 1 8 


0U0 / 






307 1 


3074 


3075 


3076 


3077 




3092 


3095 


3098 


3101 


4 rvc; 


O 4 AP 


*5 1 49 


3 143 


3 146 


3 147 


3299 


3325 




3388 


3428 


3440 


O vf CO 


1/ico 
o40o 


O430 




3524 


3525 


353 1 


355 1 


3567 




3578 


3593 


OC1Q 


o04U 




/ Uu 


3709 


37 1 1 


3729 


3734 


3807 


3813 




3824 


3829 


oo4 1 


4 4 4 7 
4 11/ 


/I HQ 
4 1 |3 


4 199 


4 1 44 


4145 


4 147 


4 149 


4167 


4169 




4183 


4185 




A OAK 


49 4 7 


4223 


4224 


4226 


4247 


4260 


4315 


4324 




4339 


4345 




/(OQC 

4ooO 


/OOQ 
4oOO 


4 13 w 


4402 


44 14 


4418 


4433 


4437 


4440 




4453 


4459 


44oo 


4479 


44Q9 

4 4 Z>£. 


4540 


4545 


4546 


4547 


4552 


4553 


4555 




4557 


4628 


A CQO 

4oy/ 


Aid 4 
4 / U 1 


4 / WvJ 


47 1 3 


4729 


4752 


4760 


48 14 


4890 


4903 




4939 


4958 


4yoo 


CAQ7 

DUo / 


OV/4V/ 


5058 


5093 


5113 


5121 


5129 


5177 


5202 




5207 


5222 


COOO 
DZ/O 


DZZ I 




R99Q 


5242 


5243 


5245 


5285 


5286 


5237 




5298 


5320 


COO 4 


COOK 




RO./1R 


5353 


5355 


5360 


5363 


5368 


5401 




5403 


5433 


K/1 OK 


K/1 OQ 
D4 v5o 




5445 


5480 


5484 


5486 


5492 


5500 


5502 




5503 


5504 


5522 


CKOO 
DD/o 




cccc 




5563 


5567 


5570 


557 1 


5578 




5583 


5585 


5597 


ooyy 


DOW 


rrh i 


5604 


56 1 2 


56 1 5 


56 1 7 


5627 


5629 




5631 


5638 


cc>to 
bo42 


K A A A 
OD44 


cccc 
0000 


000 1 


5666 


5670 


567 1 


5674 


5686 


5689 




571 1 


5721 


O / Zo 


C7 O 4 


D / OZ 


U74A 


5747 


5750 


5762 


5765 


5779 


5784 




5786 


5807 


58 10 


CQOO 


Do4u 


cqoo 


5973 


5993 


6008 


6028 


6039 


6045 




6074 


6085 


o i Z 1 


C 4 O Q 


C4CO 


cnn 4 


622 1 


6223 


6258 


627 1 


6272 


6308 




6334 


6340 


6345 


CO/IC 

Do4b 


O0D0 


O O / 


6362 


6384 


6385 


6386 


6420 


B454 




6463 


6466 


o4 / U 


C/70 

04 / <£ 


in 

OS 1U 


CROA 


6545 


6552 


6588 


6605 


6630 


6660 




6667 


6678 


6730 


6747 


6753 


6844 


6848 


6867 


6886 


6889 


6893 


6895 




6927 


6935 


6942 


6943 


6947 


6954 


7009 


7010 


7101 


7131 


7146 


7148 




7169 


7177 


7 4 7Q 


7 1 Rfi 


7 187 


7 1 93 


7 194 


7196 


7198 


7296 


7328 


7351 




7369 


7375 


7 A A fi 
/ 44o 


/4jO 


7474 


7482 


7501 


75 19 


7543 


7556 


7558 


7565 




7590 


7594 


/bUU 


7ROO 
/ \)ZZ 


7COC 

/ ozo 




7666 


7723 


7725 


7731 


7822 


7830 




7857 


7958 


O O/"* 4 

ozU 1 




QOCO 

oZoo 


8279 


8495 


8501 


8519 


8525 


854 1 


8793 


A+B 


8816 
535 # 


2179 




OOOQ 

ZZZo 


00 on 


997R 


2362 


24 1 3 


24 16 


2782 


31 10 


3337 


3403 


3613 


OOO 1 


oco vf 


077/1 

# / 4 


3779 


3944 


3978 


3984 


4025 


404 1 


4195 




4199 


4228 


42o4 


/IOQQ 
4<£Oo 




4464 


4465 


4468 


4478 


4551 


4556 


4582 




4586 


4592 


4 / JD 


O 1 *t 1 


5 143 


5 148 


5 165 


5 166 


5250 


5251 


5299 


5443 




5447 


5526 


5576 


5657 


5950 


6014 


6046 


6051 


6069 


6098 


6099 


6204 




6218 


6229 


D<d<3 1 


fi94 i 


conq 


632 1 


6328 


6348 


6369 


6383 


6438 


6449 




6457 


6501 




fifi -1 Q 


664 1 


6668 


6694 


6846 


6870 


6888 


6930 


6950 




6966 


6974 




70CK 
/ ZDD 


797R 


7308 


7449 


7484 


7494 


7502 


7721 


7846 




7932 


7939 


7942 


7945 


7948 


795 1 


8655 


8670 


8768 


8829 


8833 




A+Q 


534 


4435 


44 4 o 


440 / 


r mn 


5564 


5572 


5673 


5676 


5829 






A- . 25 


546 # 




















5365 


5713 


A-B- . 25 


EC 4 U 

iJZt I ft 


4364 


449H 


442 1 


5099 


5118 


5 1 36 


5160 


5248 


5357 


5962 


6097 


6133 


6352 


















A-D-.25 


547 f 


6182 


6422 


6427 


6475 


8651 


8661 












A-0- .25 


550 # 




















5803 


5984 


A . AND . B 


567 # 


4153 


4168 


4385 


4456 


4909 


5508 


5757 


5790 


5792 




6130 


7028 


7031 


7361 


7517 














4627 


A . AND . 


566 # 


4151 


4392 


4436 


4480 


4482 


4558 


4610 


4615 


4620 


4626 
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Cross Reference Listing 



4823 4901 
A.EQV.B 594 # 

A.EQV.Q 593 # 4129 

A.OR.B 559 # 2906 

7057 7064 
8730 

A.OR.Q 558 # 5218 

A.XOR.B 586 # 5794 
A.XOR.O 585 # 

B 561 # 2159 

2526 2532 

3083 3139 

3618 3658 

4027 4033 

4354 4359 

4702 4717 

5020 5284 

5677 5726 

6029 6055 

6163 6294 

6478 6500 

6849 6851 

7156 7222 

7307 7309 

7693 7727 

7934 7935 

7952 7953 

8234 8238 
B-.25 545 # 

B-A-.25 543 # 3419 

6135 6246 
8818 

D 565 # 2148 

2365 2369 

2690 2715 

2753 2780 

3386 3431 

3592 3612 

3811 3826 

4150 4188 

4691 4696 

4810 4884 

4976 4978 

5156 5174 

5557 5649 

5997 6000 

6076 6084 

6160 6169 

6291 6292 

6378 6380 

6540 6550 

6670 6691 

6842 6845 

6963 6982 

7151 7208 



49 10 


5753 


5788 






4132 


4154 


4155 


4210 


4212 


4091 


491 1 


5064 


5916 


6015 


7095 


7122 


7139 


7140 


7340 


5239 


5587 








7294 










2167 


2169 


2170 


2173 


2175 


2537 


2540 


2571 


2590 


2735 


3284 


3328 


3331 


3334 


3340 


3694 


3700 


3739 


3745 


3816 


4040 


4121 


4266 


4270 


4292 


4426 


4428 


4445 


4461 


4470 


4720 


4736 


4817 


4883 


4891 


5288 


5371 


5373 


5405 


5409 


5744 


5782 


5918 


5921 


5934 


6056 


6057 


6072 


6114 


6117 


6296 


6339 


6358 


6371 


6375 


6504 


6556 


6576 


6590 


6642 


6873 


6913 


6964 


7066 


7068 


7226 


7230 


7234 


7238 


7252 


73 1 7 


73 18 


7370 


7382 


7388 


7729 


7838 


7845 


7910 


7919 


7937 


7938 


7940 


7941 


7943 


7955 


8197 


8207 


8208 


8210 


8239 


8537 


8649 


8685 


8724 


3526 


3535 


3538 


4274 


4278 


6335 


6387 


6424 


6817 


6946 


2152 


2177 


2178 


2180 


2218 


2370 


2382 


2383 


2388 


2393 


2717 


2720 


2721 


2723 


2726 


2964 


2981 


2987 


2999 


3002 


3434 


3437 


3443 


3446 


3449 


3616 


3677 


3688 


3716 


3722 


3827 


3839 


3840 


3844 


4001 


4193 


4208 


421 1 


4213 


4215 


4710 


4712 


4716 


4731 


4764 


4885 


4886 


4887 


4888 


4936 


4982* 


501 1 


5016 


5039 


5052 


5175 


5200 


5205 


5282 


5315 


5700 


5835 


591 1 


5930 


5939 


6005 


6021 


6022 


6032 


6042 


6093 


6095 


6113 


61 15 


6122 


6188 


6191 


6193 


6200 


6210 


6293 


6305 


6314 


6319 


6331 


6381 


6399 


6402 


6451 


6456 


6559 


6563 


6578 


6587 


6589 


6693 


6731 


6756 


6806 


681 1 


6868 


6885 


6887 


6897 


6912 


7002 


7003 


7035 


7037 


7049 


7210 


7212 


7214 


7216 


7221 



4214 


4483 








6048 


6087 


6245 


6676 


7053 


7346 


7488 


7584 


7619 


85 16 


2182 


2184 


2375 


2395 


2494 


2742 


2749 


2756 


2786 


3067 


3343 


3346 


3405 


3559 


3607 


3952 


3974 


3996 


4002 


4013 


4296 


4327 


4333 


4347 


4352 


4531 


4538 


4559 


4689 


4698 


4899 


4948 


4961 


498 1 


5013 


5442 


5482 


5501 


5569 


5668 


5936 


5937 


5967 


5979 


6013 


6119 


6123 


6136 


6147 


6155 


6377 


6426 


6433 


6459 


6473 


6650 


6724 


6745 


6767 


6799 


7069 


7071 


7074 


7078 


7155 


7263 


7268 


7284 


7287 


7303 


7395 


7620 


7662 


7685 


769 1 


7925 


7929 


7930 


7931 


7933 


7944 


7946 


7947 


7949 


7950 


821 1 


8218 


8228 


8230 


8232 


8755 


8760 


8796 


88 10 




4548 


4579 


6009 


6030 


6 134 


7260 


7384 


7397 


7644 


8758 


2268 


2338 


2352 


2356 


236 1 


2404 


2410 


2568 


2587 


2688 


2727 


2729 


2744 


2746 


275 1 


3040 


3086 


3089 


3268 


3273 


3472 


3548 


3555 


3572 


3587 


3749 


3758 


3769 


377 1 


3805 


4014 


4103 


4118 


4 127 


4 146 


4316 


4325 


4326 


4408 


4537 


4790 


4791 


4792 


4793 


4794 


4945 


4952 


4966 


4968 


4972 


5054 


5092 . 


. 5101 


5 105 


5112 


5347 


541 1 


5489 


5505 


5547 


5954 


5957 


597 1 


5972 


5975 


6059 


6060 


606 1 


6062 


6070 


6126 


6139 


6141 


6145 


6157 


6251 


6253 


6254 


6259 


6286 


6337 


6347 


6350 


6351 


6366 


6461 


6462 


6502 


6509 


6524 


6593 


6614 


6621 


6623 


6654 


6813 


6820 


6822 


6839 


6841 


6925 


6929 


6933 


6939 


6958 


7060 


7083 


7084 


7092 


7104 


7225 


7229 


7233 


7237 


7245 



MCR L lO , 1 1 4 1 J 


A A • A£\ A A - A I Id- 


1 984 


MICRO 

I'll v rS v 


3 1 ( 254 ) 


KS 10 


MICROCODE 


V124, 27- 


-UUL-84 


Page 


251 














Cross 


Reference 


L i s t i ng 














7250 


7254 


7259 


7265 


7266 


. 7277 


7297 


7301 


7316 


7322 


7336 


7349 






7378 


7380 


739 1 


7393 


74 17 


7443 


7454 


7470 


7472 


7491 


7496 




/ D 1 *t 


7546 


7587 


7654 


7657 


7659 


7667 


7681 


7712 


7715 


7717 


7826 




/ OvJO 


7865 


79 1 2 


79 1 7 


792 1 


7924 


7936 


7954 


7956 


7957 


7959 


8194 




8 198 


8200 


8209 


82 15 


8220 


8498 


8538 


8539 


8540 


8546 


8679 


8688 




8725 


8735 


874 1 


8750 


8754 


8766 


8770 


8772 


8774 


8776 


8778 


8780 




8784 


8808 




















3817 


D+A 


539 # 


2288 


2300 


2315 


2328 


3486 


3508 


3563 


3678 


3724 


3753 


3832 


4056 


4083 


4086 


4748 


4756 


5034 


5103 


5115 


5924 


5927 


5991 




6024 


6079 


6177 


6202 


6212 


6215 


6355 


6373 


6416 


6425 


6432 


6434 




CCCQ 
OOOO 




6736 


6744 


68 18 


6824 


6892 


6894 


7298 


7447 


7492 


7665 




nan a 


7C70 


occc 
ODD3 


QR7K 

0\J t sJ 


8789 
















D+0 


540 # 


4984 


A QQO 




















D- . 25 


557 # 


















6379 






D-A- . 25 


SOD ft 


0003 


oouu 




4095 


4097 


4 100 


5049 


6360 






D - - . 25 


OOO ft 




















3275 


3298 


D . AND . A 




Z*+*£ 1 


2423 


2434 


2456 


2770 


28 13 


2936 


2967 


3015 




3537 


3540 


3542 


3543 


3544 


3577 


3582 


3585 


3591 


3605 


3606 






3627 


3639 


364 1 


3918 


3920 


3922 


3924 


3926 


3928 


3930 


3932 




qqqo 


3985 


3986 


399 1 


4036 


4 104 


4174 


4176 


4357 


4410 


4432 


4439 




HOuO 


4770 


4942 


4949 


506 1 


5224 


5289 


5293 


5318 


5351 


5388 


5392 




Om- I z 


«j O vy / 


5546 


5637 


5672 


5675 


5692 


5743 


5746 


5749 


5752 


5812 




cq 4 r% 


CQ 4 A 
3314 




5958 


6094 


'6096 


6 1 32 


6158 


6165 


6178 


6198 


6240 








6288 


6304 


6323 


6382 


6396 


6398 


6430 


6436 


6452 


6464 




O4o / 


Dno / 




6506 


652 1 


6637 


667 1 


6674 


6737 


6751 


6907 


6917 






cqqn 


6999 


7000 


7001 


7005 


7006 


7007 


7008 


7013 


7014 


7015 




7018 


7019 


7020 


7021 


7022 


7023 


7024 


7025 


7052 


7054 


7056 


7058 




706 1 


7063 


7065 


7086 


7089 


7107 


71 12 


7115 


71 19 


7134 


7152 


7153 




7180 


7188 


7197 


7217 


7239 


7281 


7331 


7333 


7334 


7335 


7337 


7339 




7341 


7343 


7345 . 


7347 


7458 


7498 


7532 


7589 


7596 


7602 


7616 


7648 




7650 


7664 


7793 


7802 


7804 


7806 


7808 


78 10 


78 1 2 


O 1 3D 


Q 4QQ 

O 1 3 3 






8252 


849 1 


8504 


851 1 


8514 


8530 


8532 


8680 


8693 


8697 


8700 


8705 




fl7 "M 

Ol II 


8797 


8752 




















D . AND . Q 


C7C # 
D / rr 


3112 


45 10 


52 10 


52 16 


5230 


5236 


5323 


5632 








D . EQV . A 


599 # 
563 # 


OOQK 
ZOO J 






















n cta\/ n 
U . tuv . w 

n no a 

U . UK . M 


2 150 


2419 


2457 


2865 


3293 


3988 


3993 


4105 


4458 


4543 


5290 


5294 


5319 


5352 


5413 


5552 


5608 


5609 


5616 


5653 


5705 


5819 


6170 




6257 


6301 


6310 


6315 


6325 


6596 


6600 


6602 


6663 


6776 


6780 


6784 




6792 


6808 


6944 


6953 


7154 


7267 


7342 


7420 


7421 


7422 


7423 


7424 






7426 


7560 


786 1 


8191 


8245 


8249 


8508 


8512 


8529 


8531 


8535 




OCQQ 

0U3O 


8702 


8707 


8714 


8719 


8792 














n np n 

U . UK . \J 


564 # 


3114 


4395 










8258 










D XOR . A 


590 # 


2187 


2855 


3290 


4412 


7456 


7457 










n XOR O 


591 n 




















4406 


4423 


n 
w 


560 # 


31 16 


4123 


4131 


4178 


4186 


4186 


4197 


4209 


4351 


4429 


4434 


4438 


4444 


4452 


4971 


5133 


5159 


5247 


5370 


5375 


5446 




0*tOO 


55 1 2 


5606 


5613 


5633 


5645 


5656 


5715 


5717 


5761 


5806 


6103 




6 142 


6544 






















q- _ 25 


544 U 
























Q-A-.25 


542 # 


4427 


5032 




















Q-D-.25 


548 # 


4975 


















2399 


2803 


ZERO 


571 # 


2160 


2160 


2162 


2165 


2172 


2174 


2176 


2193 


2215 


2980 


3021 


3041 


3270 


3608 


4222 


4248 


4318 


4454 


4532 


4799 


4812 




4818 


4819 


4822 


4894 


4895 


4898 


4954 


5097 


5139 


5163 


5249 


5296 



T10KX .MCR[ 10, 1 141 ] 



-A-.25 



-B- .25 
-D-.25 
-Q- .25 

. NOT . A 

. NOT . A . AND . B 
.NOT. A. AND. 
. NOT . B 
. NOT . D 

.NOT.D. AND. A 

. NOT . D . AND . 

. NOT . 

0+A 

0+B 

0+D 

0+Q 

(U) AD PARITY OK 



(U) ADFLGS 

(U) AREAD 
(U) B 

AR 



-AUG- 1984 


MICRO 


31(254) 


KS10 


MICROCODE 


V124, 27- 


-JUL-84 


Page 


252 














Cross 


Reference 


List ing 












5367 


5378 


5390 


5394 


5396 


5397 


5410 


5423 


5515 


5688 


57 16 


5755 


5771 


5799 


5980 


5982 * 


6016 


6035 


6083 


6088 


6100 


6111 


6140 


626 1 


6279 


6281 


6299 


6333 


6389 


6393 


6397 


6400 


6455 


6579 


6617 


6657 


6727 


6802 


7027 


7030 


7093 


7127 


7137 


7181 


7257 


7332 


7377 


7402 


7403 


7435 


7438 


7445 


7459 


7674 


7719 


7840 


7843 


7913 


8244 


8266 


8507 


8527 


8739 


8745 


8764 


8782 


8783 


8814 










554 ff 


2576 


2946 


4320 


4398 


4475 


4517 


4535 


4542 


4636 


4640 


4644 


4646 


5279 


5354 


5358 


5389 


5498 


5514 


5543 


5544 


5695 


5706 


5707 


5775 


5796 


5802 


6264 


6388 


7360 














553 ff 


5696 






















549 ff 


4449 


4609 


4614 


4619 


4624 


5995 


6267 


6938 


6952 






552 ff 


4397 


4448 


4474 


4515 


4516 


4533 


5376 


548 1 


5483 


5485 


5487 


5770 
















4534 








597 ff 


2838 


2875 


2916 


2926 


3287 


4090 


4329 


4638 


4645 


5448 


5496 


551 1 


CC 4 O 
JJ lo 


5694 


5704 


5773 


5964 


5966 


6518 


7362 


7437 


7647 


578 ff 


4125 


5581 


7059 


7062 


7338 


7348 


7518 










577 ft 


5718 






















596 ff 


5801 


6173 


















6266 


600 ff 


2895 


2905 


4613 


4618 


4623 


6012 


6040 


6044 


6180 


6 1 84 


6956 
582 ft 


2823 


3620 


4021 


5550 


5652 


5703 


5820 


6404 


6772 


6788 


7050 


7076 


7344 


7562 


8520 


8695 
















583 ff 
























595 ff 


4908 


5769 


5983 


















538 ff 


5836 






















537 ft 
























541 ff 
























536 ff 


5582 


5729 


















2964 


710 ff 


2180 


2356 


2369 


2370 


2587 


2688 


2690 


2721 


2727 


2780 


2967 


2981 


3015 


3472 


3716 


3749 


3771 


3827 


3839 


4 146 


4 1 88 


4325 


4716 


5112 


5200 


5282 


5315 


5347 


541 1 


5557 


5954 


5957 


5972 


5975 


6005 


6021 


6093 


6095 


61 13 


6145 


6157 


6160 


6188 


6191 


6 193 


6200 


6210 


6251 


6253 


6254 


6286 


6291 


6292 


6293 


63 14 


63 19 


633 1 


6366 


6451 


6509 


6550 


6587 


6589 


6693 


6806 


6813 


6839 


684 1 


coco 
oooo 


COOK 


6933 


6939 


7546 


7833 


8221 














4228 


1114 ff 


2577 


3403 


3419 


3486 


3500 


4057 


4071 


4088 


4098 


4101 


4639 


4641 




















* 


1148 ft 


2320 






















656 ff 






















2352 


660 ff 


2157 


2159 


2174 


2237 


2241 


2244 


2256 


2259 


2262 


23 19 


2356 


2361 


2369 


2375 


2388 


2393 


2395 


2404 


2413 


2413 


24 16 


24 16 


2425 


2426 


2456 


2457 


2494 


2520 


2526 


2532 


2537 


2540 


2568 


257 1 


2576 


2688 


2690 


2715 


2717 


2720 


2721 


2723 


2726 


2727 


2729 


2735 


2737 


2739 


2742 


2744 


2746 


2749 


2751 


2753 


2756 


2758 


2760 


2803 


2813 


2823 


2838 


2855 


2865 


2875 


2885 


2895 


2906 


2906 


2916 


2926 


2936 


2946 


2964 


2967 


2971 


2981 


2983 


2987 


2990 


2994 


2999 


3002 


3004 


3005 


3007 


3009 


3010 


3040 


3041 


3042 


3067 


3083 


3 1 39 


3268 


3273 


3287 


3290 


3293 


3298 


3299 


3328 


3331 


3334 


3340 


3343 


3346 


3369 


3386 


3388 


3403 


3403 


3405 


3419 


3613 


3613 


3631 


3634 


3634 


3641 


3769 


3774 


3779 


3827 


3985 


4001 


4002 


4014 


4017 


4021 


4030 


4033 


4041 


4056 


4070 


4086 


4091 


4091 


4097 


4 100 


4 103 


A A O Q 




4131 


4132 


4149 


4150 


4167 


4215 


4318 


4320 


4325 


4327 


4352 


4374 


4408 


4414 


4418 


4461 


4465 


4465 


4468 


4468 


4472 


4475 


4478 


4492 


4517 


4531 


4534 


4535 


4540 


4545 


4548 


4551 


4553 


4555 


4556 


4556 


4557 


4587 


4623 


4624 


4628 


4638 


4640 


4645 


4646 


4689 


4698 


4702 



; T10KI .MCR[ 10, 1141] 



ARX 
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MICRO 
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KS 10 
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Cross 


Reference 


Listing 












4706 


4717 


4720 


4729 


4731 


4735 


4735 


4736 


4764 


4802 


4817 


4819 


A9K00 


4823 


4883 


4884 


4885 


4886 


4887 


4888 


4891 


4899 


4908 


4909 


4909 


49 1 1 


49 1 1 


4966 


4968 


4978 


4981 


4982 


501 1 


5020 


5034 


5044 


CA4Q 


vJV^vJ Z, 


5054 


5058 


5136 


5160 


5174 


5175 


5177 


5248 


5279 


5286 




5289 


5290 


5299 


5299 


5325 


5326 


5347 


5351 


5352 


5363 


5368 


C07A 
Oo / \J 


JO / 1 


5373 


5375 


5376 


5401 


5403 


5405 


5409 


541 1 


5412 


5413 


5433 


5438 


5439 


5442 


5443 


5443 


5445 


5447 


5447 


5480 


5482 


5484 


5486 


5489 


5492 


5496 


5498 


5500 


5501 


5502 


5503 


5504 


5505 


5508 


CCAO 


55 1 1 


55 1 3 


55 14 


5523 


5526 


5526 


5528 


5544 


5571 


5576 


5576 


5578 


5583 


5585 


5629 


5666 


5670 


5674 


5677 


5700 


5703 


5705 


5707 


573 1 


5732 


5740 


5744 


5747 


5750 


5762 


5765 


5773 


5775 


5779 


5782 


C704 


5786 


580 1 


5807 


58 10 


5832 


5835 


5836 


5840 


5879 


5881 


5883 


cope 

OC500 


K007 
JOO / 


5889 


589 1 


5893 


5895 


5921 


5950 


5950 


5957 


5964 


5966 


CQC7 


CQOO 


cqpq 


599 1 


5995 


6008 


6009 


6009 


6012 


6014 


6014 


6015 


fjn a r 

OU 1 o 


CAO i 


caoo 


6029 


6039 


6040 


6042 


6044 


6045 


6046 


6046 


6051 


CAE A 

OUO I 


6059 


6098 


6098 


6099 


6 100 


61 13 


6119 


6126 


6130 


6130 


6133 


C A T3 


D 1 OO 


6 1 40 


6 145 


6147 


6154 


6 155 


6157 


6165 


6173 


6177 


6180 


O 1 o«+ 






6257 


6258 


6266 


6267 


6271 


6291 


6293 


6296 


6305 


■) 4 
OO H 


Ov3 1 


6345 


6346 


6347 


6348 


6348 


6353 


6371 


6373 


6375 


6380 






6399 


6400 


6402 


6424 


6427 


6432 


6438 


6438 


6449 


6461 






6464 


6466 


6467 


6500 


6520 


6524 


6525 


6525 


6545 


6550 


ecco 


6553 


6556 


6578 


6579 


6591 


6593 


6614 


6617 


6619 


6619 


6621 




6637 


664 1 


664 1 


6642 


6654 


6657 


6660 


6663 


6667 


6670 


6674 


Ou3 1 


6693 


6694 


6724 


6730 


673 1 


6736 


6744 


6745 


6747 


6753 


6802 


COAfi 
OOUD 


68 1 1 


68 1 3 


68 1 7 


68 18 


6820 


6822 


6824 


6839 


6841 


6844 


6845 


6846 


6846 


6848 


6849 


6851 


6868 


6873 


6886 


6887 


6888 


6888 


6889 


COQ7 


69 1 2 


69 1 3 


69 1 7 


6925 


6929 


6930 


6933 


6938 


6942 


6946 


6946 


6947 


6950 


6950 


6952 


6953 


6954 


6956 


6966 


6966 


6974 


6974 


7104 


7 1H7 
/ 1 \J 1 


7 1 46 


7 1 48 


722 1 


7222 


7225 


7226 • 


7229 


7230 


7233 


7234 


7237 


/Zoo 


7245 


7249 


7249 


7250 


7252 


7254 


7255 


7255 


7257 


7259 


7260 




7263 


7265 


7277 


7287 


7301 


7316 


7317 


7318 


7377 


7378 


7382 


TOO A 

I 00*+ 




7388 


739 1 


7395 


7397 


7397 


7435 


7439 


7443 


7446 


7447 


~7 A AO 


7449 


7454 


7472 


7482 


7486 


7488 


7488 


7543 


7565 


7590 


7596 


7CAO 
/ OU<; 


765 1 


7654 


7659 


7665 


7667 


7671 


7673 


7674 


7712 


7721 


7721 


700C 
/ O/D 


7833 


7860 


786 1 


7934 


7935 


7936 


7937 


7954 


7955 


7956 


8191 


OOA -f 


8207 


8495 


8498 


8501 


8504 


8516 


8516 


8546 


8735 


8741 


8750 


07C4 

o / 5J*+ 


07CC 

o / uu 


8766 


8789 


88 16 


8829 


8829 


8833 








2786 


66 1 # 


2 1 80 


2 184 


2365 


2370 


2399 


2423 


2488 


2770 


2771 


2780 


oo / o 


3709 


3711 


3716 


3724 


3749 


3753 


3826 


3829 


3942 


3944 


3944 


OQCO 


053 / O 


4025 


4083 


4095 


4 104 


4 105 


4121 


4122 


4127 


4151 


4154 


410D 


A A fiR 


4 168 


4 1 76 


4 186 


4 199 


4199 


4205 


4208 


4222 


4228 


4248 


'tZD / 


427 1 


4275 


4279 


4285 


4289 


4293 


4297 


4339 


4351 


4357 


4423 




«+*+ 00 


4532 


4537 


4543 


4559 


4579 


4579 


4582 


4582 


4593 


4635 


*+OoO 


A&AA 


47 1 2 


47 1 6 


4903 


4910 


4936 


4939 


4942 


4945 


4948 


5092 


O 1 *+ 1 


R 1 4 A 


5 1 66 


525 1 


5285 


5353 


5354 


5365 


5543 


5645 


5657 


5657 


5692 


5715 


5790 


5790 


5792 


5792 


5794 


5794 


5796 


5829 


5973 


5975 


5993 


6024 


6030 


6056 


6061 


6069 


6069 


6072 


6074 


6079 


6093 


6097 


6117 


6 123 


6 1 28 


6 134 


6160 


6162 


6191 


6212 


6218 


6218 


6221 


6231 


623 1 


6240 


6251 


6263 


6264 


6269 


6272 


6292 


6294 


6304 


6308 


6309 


6309 


6319 


6337 


6366 


6377 


6381 


6383 


6383 


6385 


6422 


6430 


6434 


6436 


6576 


6756 


6799 


6867 


6870 


6943 


6944 


6963 


6964 


7052 


7054 


7092 


7093 


7281 


7284 


7292 


7296 


7298 


7309 


7445 


7484 


7484 


7494 


74§4 


7617 


7619 


7628 


7634 


7657 


7715 


7719 


7731 


7838 


7843 


7846 


7910 


7912 


7917 


7921 


7924 


7925 


7929 


7932 


7939 


7942 


7945 


7948 


7951 


7957 


7959 


821 1 


8279 


8527 


8538 


8655 


8655 


8665 


8670 


8670 



K J 

T10KI .MCR[ 10, 1141] 



BR 



BRX 



EBR 
FLG 



HR 



MAG 



- AUG- 


1984 


MICRO 


3 1 ( 254 ) 


KS 10 


Ml CKULUUh 


\/ A O A 7 
V I Z4 , Z / 


_ . II II _ OA 

(JUL o*f 


Page 


9R4 

Z 0*t 














Cross 


Reference 


L i s "t i ng 












8675 


8679 


8685 


8688 


















662 # 


2 182 


2383 


2384 


24 10 


24 1 9 


O A 1 A 

Z4Z i 


ORQ7 

Zbo / 


zoyu 


Z tJVJO 


QO 1 R 
ou 1 


3037 


3070 


307 1 


3074 


3075 


3076 


3077 




OAQO 

ooyz 


ovy 


QAQP 

OU3£5 


q in i 


3 105 


3108 


3110 


3142 


3143 


3 1 46 


3147 


3270 


oZ / b 


oZo*f 


0*t Zo 


Q4Q 1 

OfO 1 


3434 


3437 


3440 


3443 


3446 


3449 


3472 


O/IOC 

o4ob 


obuu 


obuo 


Qfi 1 O 
OO 1 Z 


Qfi 1 P 
OO 1 


3627 


3677 


3688 


3694 


3700 


3722 


3739 


o / 4b 


O / / 1 




QPH7 


38 1 1 


38 16 


3824 


3839 


3840 


3844 


3982 


3984 


O3o4 


QQPP 

030O 


0330 


3996 


4090 


4 169 


4315 


4324 


4333 


4347 


A OCyl 

4354 


4 oby 






HOOu 


4388 


4390 


4398 


4402 


4420 


442 1 


4538 


4542 


4b4b 


A VZA 7 


/IRQ i 

toy 1 




47 10 


4770 


4790 


479 1 


4792 


4793 


4794 


48 1U 


A O A O 

4o i Z 


AO. A A 


AQAQ 


*♦ 30Z 


4954 


4958 


496 1 


4976 


4986 


501 3 


5025 


506 1 


5064 


b 1 UU 


cam 

D1U1 


R in*? 

O 1 UO 


5113 


5115 


5202 


5282 


5284 


5287 


5293 


5294 


5298 


IX O A E 


booy 


r^iqr 


=,4 /IP. 


z z 


5547 


5550 


5552 


5563 


5633 


567 1 


5689 


5696 


57 1 3 


CQ 4 4 

by 1 i 


by l b 


RQ 1 A 


RQ A P 

03 1 


5924 


5925 


5927 


5930 


5934 


5936 


5937 


5939 


byb4 


CQCO 

oybz 


RQ70 


RQ7Q 

053 / ?3 


6005 


6013 


6032 


6055 


6060 


6 132 


6 1 88 


6 1 93 


bzUU 


con -i 
bzu l 


ROAO 
OZVJZ 


O Zvy*T 


6210 


6215 


6223 


6229 


6229 


624 1 


624 1 


bZb4 


booo 


RQQ4 


«QQR 
O O 


6335 


6355 


6358 


6360 


6362 


6369 


6369 


6379 


boob 


booo 


o**u*t 




6457 


6459 


6470 


6472 


6473 


6509 


65 18 


6587 


6589 


bbyu 


Do4z 


CROC 




6935 


6939 


6958 


7002 


7003 


7009 


70 10 


/Oz / 


"7/">0 O 


7AOA 


7HQ 1 


7mR 

f vO O 


7037 


7049 


7050 


7053 


7053 


7057 


7057 


/ob» 


/Uby 


/ ubo 


7ACQ 


707 1 


7083 


7084 


7086 


7089 


7095 


7095 


/ 1 1 y 


7107 

/ 1 z / 


/ 1 1 


/ 1 O 1 


7 1 52 


7 1 54 


7 155 


7 156 


7177 


7 1 79 


7 180 


7181 


7 1 86 


7400 
/ 1 OO 


"7 4 QQ 

/ 1 y O 


7 1 QP 


70DP 


72 10 


7212 


7214 


7216 


7248 


7266 


7267 


7268 


70Q A 

f zy i 


/ zy4 


70Q7 

/ zy / 


7Q07 


7322 


7328 


7335 


7336 


7370 


7380 


7393 


7/1CQ 

/40o 


747A 


f *t3£ 


7496 


7502 


7502 


7514 


7519 


7532 


7546 


7558 


7560 


7CCO 
/ bbZ 


/ O / 


7CQ 4 


7584 


7587 


7594 


7600 


7620 


7626 


7632 


7723 


7727 


/ y 00 


Q -I QQ 

i y 


00 H R 

OZ 1 


POOP 
z zo 


8230 


8232 


8234 


8260 


8263 


8266 


85 1 9 


8520 


0003 


O / Z*» 


P79R 
O / ZO 


P797 
1 z / 


8808 


88 10 


663 # 


2 1 78 


2 1 79 


2 1 79 


4117 


A A A Q 
41 13 


4 1 40 




4 1 74 
4 1 / f 


4 193 


4224 


4247 


4345 


4406 


4464 


5037 


5040 


5097 


ouyy 


b 1 1 z 


Olio 


R 1 4Q 
O I *t 


5 1 48 


5 165 


5165 


5200 


5250 


5250 


5315 


53 18 


C04Q 

bo i y 


coo A 

boZ l 


OoDD 


oou / 


5358 


5360 


5546 


5637 


5638 


5649 


5652 


'5653 


boob 


bbyb 


CQ 4 A 

by 1 4 


cqcq 

J3JO 


OU*+o 


6HR7 


6062 


6085 


6087 


6095 


6114 


6121 


6 1 35 


6 1 58 


b 1 bo 


c -I 7r\ 

Dl /U 


bZ40 


oz*+o 


6259 


6286 


6288 


6299 


6301 


63 10 


63 1 5 


632 1 


632 1 


cooc 

boZb 


boZo 


coop 
zo 


6339 


6340 


6357 


6387 


645 1 


6478 


6504 


6506 


6600 


bbUZ 


CCAC 
OOvO 


CCCA 
OO OU 


6668 


6668 


667 1 


6676 


6676 


6678 


6767 


6772 


C77C 

b / /b 


b / oU 


K7P4 
b / o*t 


/ 00 


6792 


6808 


7060 


7062 


7062 


•~j r\d a 
/Uo4 


/ UO*f 




7074 


7076 


7078 


7 187 


7194 


7 196 


7 197 


7293 


7427 


7428 


/ 4zy 


74Qn 


7/lQ 4 
/ *to I 


/ *t z 


7433 


7498 


7501 


7556 


7647 


7707 


7940 


8 194 


1 y b 


1 y / 


oZUO 


OOAQ 




8220 


8224 


8226 


8238 


8239 


8240 


8249 


oZbZ 


oZOo 


OOVJO 


PR 1 
OO 1 z 


85 1 4 


8529 


8531 


8535 


8537 


8540 


8649 


o 7no 
o / 


/ 14 


P7<Q 
O 1 13 


/ ou 


8730 


8796 




665 # 


2 162 


7 169 


7943 


















668 


2 165 


210/ 


O -4 CO 

z i oy 


9 A 7H 

Z 1 / \J 


QCOA 
OD<dU 


5 105 


5 1 39 


5 163 


5249 


55 15 


5608 


5609 


56 16 


5755 


577 1 


5799 


CO 4Q 

oo i y 


coon 

oozu 


CQ7 -1 


KQQ7 




60 1 6 


6022 


6070 


s 6076 


6084 


6088 


6111 


C 4 4 CZ 

611b 


a a 01 
b 1 ZZ 


P, A A A 
D141 




ozo 1 


635 1 


6378 


6389 


6393 


6455 


6502 


6559 


6563 


CROC 

bbyb 


bbZo 


C707 
D / Z / 


7Q47 


8200 


8245 


8507 


8695 


8698 


8707 


8760 


8764 


/ /U 


Q770 

/ / z 


0774 
/ / 4 


077c 
/ / O 


8778 


8780 


8782 


8783 


8784 


8792 


88 1 4 
















659 # 


2 177 


2 183 


2 183 


2268 


2300 


Zo i b 


Z0Z0 


OQQQ 

Zooo 


ZoOZ 


2434 


3528 


3537 


3540 


3542 


3543 


3544 


OE Vl O 

ob4o 


OC KQ 

oboy 


0000 


QR79 
OO / z 


3577 


3582 


3585 


3587 


3605 


3626 


3639 


3652 


3658 


obbZ 


QO A Q 

3 1 O 


3 ZU 


o?ZZ 


3924 


3926 


on o o 

3928 






oy oo 


OS / *t 


AC\ A 9, 

H\J 1 O 


4036 


4040 


4601 


6907 


6982 


6990 


6999 


7000 


7001 


7005 


7006 


7007 


7008 


7013 


7014 


7015 


7018 


7019 


7020 


7021 


7022 


7023 


7024 


7025 


7217 


7239 


7278 


7303 


7308 


7334 


7662 


7793 


7802 


7804 


7806 


7808 


7810 


7812 


7865 


7933 






657 # 


2151 


4226 


4260 


4385 


4433 


4456 


4890 


4895 


4898 


5207 


5227 



(D) B 



MCR i10,1141J 


11:45 11-AUG-1984 


MTCRO 


3 1 ( 254 ) 


KS 10 


MICROCODE 


V124, 27- 


-JUL-84 


Page 


255 














Cross 


Ref erence 


L i st i ng 














5228 


5229 


5243 


563 1 


572 1 


5757 


5803 


7930 










MASK 


667 # 


2 148 


2 149 


2150 


3607 


4125 


5222 


5223 


5984 


7919 


7946 




UNt 


664 # 


2 i o4 


2 173 


2175 


2782 


6352 


7941 










3524 


PC 


658 # 


22 1 5 


2228 


2230 


2275 


2288 


2294 


3018 


3337 


3453 


3456 


3525 


3526 


3535 


3538 


3551 


3578 


3593 


3616 


3706 


3758 


3817 


3832 




6246 


6501 


6501 


7474 


7644 


7729 


7931 


8758 


8768 


8768 


8818 


7348 


PI 


669 # 


2 193 


7332 


7338 


7338 


7340 


7340 


7342 


7344 


7346 


7346 


7348 


7420 


742 1 


7422 


7423 


7424 


7425 


7426 


7517 


7518 


7518 


7949 


TO 


67 1 # 


3592 




4 1 53 


4185 


4 188 


4195 


4434 


4440 


4444 


4446 


4448 


4453 


4458 


4459 


5557 


5562 


5569 


5570 


5597 


5599 


5600 


5601 


5604 




56 1 2 


EC 4 K 

bo i o 


56 1 7 


5644 


5717 


5723 


6350 


6416 


6425 


6426 


7349 


7359 




7360 


736 1 


736 1 


7491 


7681 


7685 


7691 


7693 


7952 






4426 


T1 


672 # 


2 190 


2201 


22 18 


2247 


2265 


2516 


3579 


4394 


4405 


4412 


4428 


4445 


4470 


4552 


52 1 1 


52 19 


5224 


5231 


5242 


5581 


5581 


5606 




5613 


5656 


5668 


5688 


5694 


5704 


5726 


6420 


6433 


7468 


7500 


7845 




7953 


8749 




















7944 


UBR 


666 # 


2 1 60 


7112 


7122 


7122 


7134 


7137 


7139 


7139 


7140 


7140 


XWD 1 


670 # 


2 1 52 


7950 
















3188 


3189 


1327 # 


3 1 76 


3 177 


3178 


3179 


3180 


3181 


3185 


3186 


3187 




3190 


3 192 


3 1 93 


3 194 


3195 


3196 


3197 


3198 


3199 


3201 


3202 


3203 




3204 


3205 


3206 


3207 


3208 


32 10 


321 1 


3212 


3213 


3214 


3215 


3216 




32 17 


32 19 


3220 


322 1 


3222 


3223 


3224 


3225 


3226 


3227 


3228 


3229 




3230 


323 1 


3232 


3233 


3234 


3236 


3237 . 


3238 


3239 


3240 


3241 


3242 




3243 


3349 


3350 


335 1 


3352 


3353 


3354 


3355 


3356 


3358 


3359 


3360 




3361 


3362 


OJuO 


3364 


3365 


3375 


3376 


3377 


3378 


3379 


3380 


3381 




3382 


3392 


3393 


3394 


3395 


3396 


3397 


3398 


3399 


3408 


3409 


3410 




34 1 1 


34 1 2 


34 1 3 


34 14 


34 15 


346 1 


3462 


3463 


3464 


3465 


3466 


3467 




3468 


3475 


3476 


3477 


3478 


3479 


3480 


3481 


3482 


3489 


3490 


3491 




3492 


3493 


3494 


3495 


3496 


3503 


3504 


3668 


3669 


3670 


3765 


3851 




3852 


3853 


3854 


3855 


3856 


3857 


3858 


3908 


3909 


3910 


391 1 


3912 




3913 


5848 


5849 


5850 


5851 


5852 


5853 


5854 


5856 


5857 


5858 


5859 




586 1 


5862 


5863 


5864 


5869 


5870 


5871 


5872 


5873 


7524 


7525 


7526 




7527 


7535 


7536 


7537 


7538 


7549 


7550 


7551 


7552 


7736 


7737 


7738 




7740 


774 1 


7743 


7744 


7746 


7747 


7748 


7749 


7750 


7751 


7752 


7753 




7755 


7756 


7757 


7758 


7759 


7760 


7761 


7762 


7764 


7765 


7766 


7767 




7768 


7769 


7770 


777 1 


7773 


7774 


7775 


7776 


7777 


7778 


7779 


7780 




7782 


7783 


7784 


7785 


7786 


7787 


7788 


7789 








2600 


AC 


133 1 # 


2546 


2547 


255 1 


2552 


2556 


2557 


2561 


2562 


2583 


2599 


2604 




2609 


26 10 


2614 


2615 


2619 


2620 


2624 


2625 


2629 


2630 




2634 


2635 


2641 


2642 • 


2646 


2647 


2651 


2652 


2656 


2657 


2661 


2662 






ZOO / 


267 1 


2672 


2676 


2677 


2766 


2796 


2797 


2806 


2807 


2816 




Zq 1 / 


«£0 


2827 


2831 


2832 


2848 


2849 


2858 


2859 


2868 


2869 


2878 




2879 


2888 


2889 


2898 


2899 


2909 


2910 


2919 


2920 


2929 


2930 


2939 




2940 


4049 


4050 


4063 


4064 


4111 


4112 


4681 


8187 




2891 


2901 


BOTH 


1333 # 


2799 


2809 


28 1 9 


2829 


2834 


2851 


2861 


2871 


2881 


2912 


2922 




2942 


4052 


4066 


41 14 










4380 


DBLAC 


1329 # 


2765 


4078 


4079 


4 136 


4137 


4162 


4303 


4304 


4308 


4309 




5622 


5683 






















DBLB 


1 ooU ft 


*+ 1 03 


4306 


431 1 














2626 


2631 


MEM 


1332 # 


2548 


2553 


2558 


2563 


2601 


2606 


261 1 


2616 


2621 


2636 


2643 


2648 


2653 


2658 


2663 


2668 


2673 


2678 


2798 


2808 


2818 




2828 


2833 


2843 


2844 


2850 


2860 


2870 


2880 


2880 


2900 


291 1 


2921 




2931 


2941 


4051 


4065 


41 13 


4138 


4305 


4310 


7203 






2632 


SELF 


1328 # 


2549 


2554 


2559 


2564 


2602 


2607 


2612 


2617 


2622 


2627 


2637 


2644 


2649 


2654 


2659 


2664 


2669 


2674 


2679 









(U) BWRITE 



(U) BYTE 



(U) CALL 



(U) CHKL 



(U) CHKR 



(U) CLKL 



MCR[ 10, 1141] 


11:45 11-AUG-1984 


MICRO 


3 1 V zo4 ; 


l/C 4A 


M ltKULUUt 


\/ 1 9 4 7- 
V 1 Z*+ , Z / 


- JUL-84 


r aye 


256 














Cross 


Reference 


Listing 












TE 


1 157 # 


2568 


zo / 4 


Zboo 




O 7 9 Q 
Z / Zo 


070Q 


2737 


2739 


2758 


2760 


2803 


2813 


2823 


zooo 


Zobo 


OOQC 
ZOOJ 


ooqc 


2906 


29 16 


2946 


4057 


407 1 


4123 




4129 


4152 


A 4 EZA 
4 1 04 


C A A O 
D44o 


OH- *\ f 




55 1 5 


85 1 7 


88 1 7 








BYTE 1 


816 # 

817 # 


4691 


4696 


47 10 


4731 


A Q O A 

4oo4 


OUo-i 




cco4 
00 z*+ 




6842 


' 6845 




6885 


6887 


6958 




















BYTE2 


818 # 


4885 






















BYTE3 


819 # 


4886 






















BYTE4 


820 U 


4887 






















BYTE5 


821 # 


3040 


4790 


479 1 


4 /9z 


y| 7QO 

4 / y o 


47Q4 


4RQR 


fifiR4 






3606 


968 # 


2155 


2181 


2 1 93 


2398 


O 77A 

Z / / U 


Z / 8U 




3589 


359 1 


3592 




3630 


3633 


3828 


383 1 


3945 


jy / b 


/ y 


*fv 1 o 


*tu 1 


4 1 20 


4 1 48 


4 175 




4184 


4194 


4204 


4227 


4337 


4358 


A A 4 o 
44 1 o 


44 4 Q 

44 1 y 


440*3 

4400 


AA^kl 
*t*+o / 


4443 


4489 




4513 


4691 


4696 


4700 


4705 


47 10 


4 / i y 


4 / ZZ 


4Q7A 

4y / v/ 


4QOA 
430U 


50 1 4 


504 1 




5096 


5112 


5114 


5201 


52 1 3 


52 1 5 


CT3 
DZOO 


DZoD 


e.qo 9 
oozz 
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6727 


6846 


6888 


6897 


7051 


7077 


7091 


7138 
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AO 1 


2434 


2456 


2457 


2688 


2723 


2727 


2744 


2746 
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3115 
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3528 


3537 


3540 
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3544 


3577 


3582 


3585 
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3770 
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5319 
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5608 


5609 


5616 


5632 
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5672 


5675 


5703 


5705 
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5746 
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5819 


5820 
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597 1 
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6115 
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6141 


6154 


6158 
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6178 


6182 
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6240 
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6257 


6263 


6269 
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6315 


6323 
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635 1 
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6456 
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6579 
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6600 


6602 


6617 


662 1 


662 1 


6623 


6637 


6654 


6657 


6663 


6670 


6671 


6674 


6751 


6756 


6772 


6776 


6780 


6784 


6788 


6792 


6802 


6808 


6842 


6845 


6885 


6887 


6897 


6897 


6907 


691 1 


6912 


6917 


6958 


6967 


6975 


6982 


6982 


6984 


6990 


6999 


7000 


7001 


7002 


7003 


7005 


7006 


7007 


7008 


7013 


7014 


701 5 


701 8 


7019 


7020 


702 1 


7022 


7023 


7024 


7025 


7027 


7030 


7035 


7037 


7050 


7052 


7054 


7056 


7058 


7060 


7061 


7063 


7065 


7076 


7084 




7089 


7092 


7093 


7103 


7104 


7107 


7112 


7115 


7119 


7134 


7152 


7 1 53 


7 1 54 


7 180 


7 188 


7197 


72 17 


7221 


7221 


7225 


7225 


7229 


7229 


/ £<3 


7233 


7237 


7237 


7239 


7248 


7266 


7267 


7276 


7277 


7281 


7291 


7292 


7293 


73 16 


73 16 


7331 


7333 


7334 


7335 


7336 


7337 


7339 


7341 


/ o*+ «t 


7343 


7344 


7345 


7347 


7349 


7359 


7378 


7380 


7391 


7393 


7420 


/ H-Z 1 




7423 


7424 


7425 


7426 


7427 


7428 


7429 


7430 


7431 


7432 




7/1 


7438 


7439 


7442 


7443 


7447 


7454 


7454 


7456 


7457 


7468 


747O 


7486 


7490 


749 1 


7492 


7496 


7496 


7498 


7500 


7514 


7578 


7581 


7CQC 


7C07 


7589 


7596 


7602 


76 16 


76 17 


7628 


7634 


7648 


7650 


7664 


7CC7 


• 7CC7 


768 1 


7707 


• 77 12 


7712 


7715 


7715 


7717 


7717 


7793 


7802 


7804 


7806 


7808 


78 10- 


7812 


7825 


7826 


7840 


7860 


7861 


7864 


7865 


79 1 3 


7924 


8191 


8 194 


8195 


8 199 


8200 


8209 


8214 


8220 


8224 


8226 




8244 


8245 


8248 


8249 


8252 


8258 


8266 


8491 


8504 


8508 


851 1 


85 1 2 


85 14 


8520 


8527 


8529 


8530 


8531 


8532 


8535 


8651 


8661 


8665 


8675 


8678 


8679 


8680 


8688 


8693 


8695 


8697 


8698 


8700 


8702 


8705 


8707 


8711 


8714 


8719 


8725 


8727 


8739 


8745 


8749 


8752 


8770 


8772 


8774 


8776 


8778 


8780 


8784 


8789 


8792 










2771 


69 1 # 


2172 


2173 


2488 


2494 


2520 


2526 


2532 


2537 


2540 


2590 


2786 


302 1 


3042 


3077 


3110 


3116 


3299 


3386 


3388 


3405 


3428 


3431 


343 1 


3434 


3434 


3437 


3437 


3440 


3443 


3443 


3446 


3446 


3449 


3449 


3653 


3694 


3700 


3709 


371 1 


3739 


3745 


3774 


3779 


3807 


3816 


3974 


ACS i Q 


ACi 1 7 


4040 


4 103 


4 127 


4150 


4178 


4186 


4195 


4197 


4208 


4208 






42 1 2 


4214 


4436 


4452 


4453 


4454 


4456 


4459 


4478 


4480 


AAR1 


46 10 


46 1 5 


4620 


4626 


4627 


4628 


4706 


4736 


4891 


5064 


5113 


sJ 1 OO 


5 1 59 


5 177 


5202 


5247 


5439 


5445 


5757 


5765 


5801 


5802 


5803 


58 10 


5962 


6008 


6028 


6035 


6045 


6048 


6083 


6085 


6087 


6121 


6128 


6 162 


6204 


622 1 


6223 


6258 


6259 


6259 


6271 


6272 


6279 


6281 


6305 


6305 


6308 


6340 


6346 


6357 


6362 


6384 


6385 


6386 


6544 


6545 


6590 


6605 


6678 


6694 


6731 


6820 


6820 


6848 


6889 


6927 


6935 


6942 


6947 


6954 


7250 


7307 


7309 


7370 


7543 


7620 


7662 


7727 


7729 


7731 


7845 


7930 


793 1 


7933 


7934 


7937 


7938 


7940 


7941 


7943 


7944 


7946 


■ 7947 


7949 


7950 


7952 


7953 


7955 


8201 


8760 


8796 


8810 






7470 


000 ft 


3627 


364 1 


3688 


3805 


381 1 


3985 


4014 


4215 


6963 


7458 


8808 
























689 # 


74 1 7 


















2383 


2587 


692 # 


2 1 80 


2288 


2300 


2315 


2328 


2356 


2369 


2370 


2382 


2688 


2690 


2721 


2727 


2780 


2813 


2823 


2855 


2865 


2885 


2895 


2905 


2936 


2964 


2967 


2981 


2987 


2999 


3002 


3015 


3086 


3089 


3275 


3290 


3293 


3298 


3369 


3472 


3486 


3500 


3508 


3555 


3563 


3678 


3716 


3749 


3771 


3827 


3839 


4056 


4070 


4083 


4086 


4095 


4097 


4100 


4118 


4146 


4174 


4176 


4188 


4193 


421 1 


4213 


4316 


4325 


4326 


4408 


4410 


4432 


4439 


4449 


4609 


4613 


4614 


4618 


4619 


4623 


4624 


4712 


4716 


4748 


4756 


4966 


4975 


4976 


4988 


4992 


5027 


5034 


5039 


5047 


5103 


5112 



-AUG- 


1984 


MICRO 


31 (254) 


KS10 


MICROCODE 


V124, 27- 


- JUL-84 


Page 


260 














Cross 


Reference 


L i st i ng 












5175 


5200 


5282 


5315 


5347 


541 1 


5546 


5547 


5557 


5637 


5649 


5692 


5700 


5924 


5927 


5954 


5957 


5972 


5975 


5991 


5995 


6005 


601 2 


602 1 


6024 


6040 


6044 


6059 


6060 


6061 


6062 


6079 


6093 


6095 


6113 


6 1 26 


6132 


6139 


6145 


6157 


6160 


6177 


6180 


6184 


6188 


6191 


6 193 


6200 


6202 


6210 


6212 


6215 


6251 


6253 


6254 


6266 


6267 


6286 


629 1 


6292 


6293 


6314 


6319 , 


6331 


6337 


6347 


6355 


6360 


6366 


6373 


6379 


6380 


6381 


6402 


6422 I 


6427 


6432 


6434 


6451 


6509 


6540 


6550 


6553 


6578 


6587 


6589 


6614 \ 


6629 


6691 


6693 


6736 


6737 


6744 


6806 


68 1 1 


68 1 3 


6818 


6822 


6824 


6839 


684 1 


6868 


6892 


6894 


6925 




by oo 


CQQQ 

0300 


6939 


6944 


6952 


6953 


6956 


7049 


7083 


7151 


7208 


7210 


7212 


7214 


7216 


7245 


7254 


7259 


7265 


7297 


7298 


7301 


7322 


7532 


7546 


7560 


7562 


7654 


7657 


7659 


7665 


7671 


7673 


7833 


7912 


79 1 7 


792 1 


7QOC 

/ y od 


7954 


7956 


7957 


7959 


8198 


8498 


8538 


8539 


8540 


8546 


8735 


O "7 A 4 

874 1 


8750 


8754 


8766 




















622 # 

623 M 


2388 


2404 


2488 


2520 


2568 


2715 


27 17 


2720 


2723 


2726 


2729 


2771 


3042 


3077 


3268 


3273 


3299 


3386 


3388 


3428 


343 1 


3434 


3437 


3440 


3443 


3446 


3449 


3592 


3709 


371 1 


3769 


3807 


3826 


3840 


4 103 


4127 


4150 


4208 


4453 


4459 


4628 


4691 


4696 


4706 


47 10 


473 1 


4790 


4791 


4792 


4793 


4794 


4810 


4884 


4885 


4886 


4887 


4888 


4936 


4952 


5052 


5092 


5101 


5113 


5174 


5177 


5202 


5439 


5445 


5489 


5505 


5765 


5810 


5835 


6008 


6028 


6032 


6042 


6045 


6085 


6121 


6 128 


6 162 


• 6221 


6223 


6258 


6259 


6271 


6272 


6305 


6308 


6340 


6346 


6357 


6362 


6384 


6385 


6386 


6399 


6456 


6461 


6462 


6524 


6545 


6605 


6670 


6678 


673 1 


6756 


6820 


6842 


6845 


6848 


6885 


6887 


6889 


6927 


6935 


6942 


6947 


6954 


6958 


7084 


7250 


7336 


7349 


7359 


7543 


773 1 


8201 


8688 


O 47Q 

2 i / o 


625 # 


2148 


2150 


2152 


2154 


2157 


2 160 


2 162 


2165 


2 1 74 


2 1 77 


2179 


2180 


2183 


2190 


2193 


2201 


2215 


2218 


2228 


2230 


2237 




2244 


2247 


2256 


2259 


2262 


2265 


2268 


2275 


2288 


2294 


2300 


2 J 1 D 


2319 


2328 


2338 


2352 


2356 


2361 


2362 


2365 


2369 


2370 


2393 


OOQQ 

2jyy 


2410 


2413 


2416 


2419 


2421 


2434 


2456 


2457 


2516 


2576 


2587 


2688 


2690 


2721 


2727 


2737 


2739 


2744 


2746 


2751 


2753 


2758 


2760 


2770 


2780 


2803 


2813 


2823 


2838 


2855 


2865 


2875 


2885 


2895 


2905 


2906 


2916 


2926 


2936 


2946 


2964 


2967 


2981 


3015 


3018 


3041 


3270 


3275 


3287 


3290 


3293 


3298 


3337 


3369 


3403 


3419 


3453 


3456 


3472 


3486 


3500 


3508 


3524 


3525 


3528 


3537 


3540 


3542 


3543 


3544 


3548 


355 1 


3563 


3572 


3577 


3578 


3579 


3582 


3585 


3587 


3593 


3605 


36 1 2 


36 1 3 


3616 


3620 


3626 


3627 


3631 


3634 


3639 


3641 


3652 


3677 


3678 


3688 


3706 


3716 


3722 


3724 


3749 


3753 


3758 


377 1 


3805 


38 1 1 


38 1 7 


oo24 


3827 


3829 


3832 


3839 


3844 


3918 


3920 


3922 


3924 


3926 


3928 


oo on 
oyoU 


3932 


3938 


3942 


3944 


3978 


3982 


3984 


3985 


3988 


3993 


4UU l 


Af\ 4 A 
4U 1 4 


4021 


4025 


4030 


4036 


4041 


4056 


4070 


4083 


4086 


4090 


409 1 


y(AQC 

4uyo 


4097 


4100 


4104 


4105 


4117 


4123 


4 129 


4131 


4 132 


4 145 


4 1 46 


A 4 K. 4 
413 1 


4154 


4155 


4169 


4185 


4199 


4215 


4222 


43 15 


4318 


4320 


4oz4 


4o20 


4339 


4345 


4351 


4357 


4374 


4394 


4405 


4406 


4412 


4423 


4429 


A A OO 

44oo 


4446 


4458 


4465 


4468 


4517 


4532 


4534 


4535 


4537 


4542 


4543 


4556 


4623 


4624 


4635 


4636 


4638 


4640 


4644 


4645 


4646 


47 1 6 


4729 


4735 


4764 


4770 


4812 


4823 


4908 


4909 


4910 


491 1 


4945 


4954 


4966 


4968 


4976 


4978 


4982 


4985 


501 1 


5024 


5034 


5037 


5043 


5054 


506 1 


buy / 


5100 


5103 


5105 


5112 


5115 


5139 


5141 


5143 


5 148 


5163 


5 165 


O 1 DO 


5 175 


5200 


52 18 


5224 


5249 


5250 


CO K 4 


C07Q 




5285 


5286 


5287 


5289 


5290 


5293 


5294 


5299 


5315 


5318 


5319 


5325 


5345 


5347 


5351 


5352 


5353 


5354 


5389 


5411 


5412 


5413 


5443 ' 


5447 


5448 


5496 


5498 


5508 


551 1 


5513 


5514 


5515 


5526 


5543 


5544 


5557 


5562 


5563 


5570 


5571 


5581 


5606 


5608 


5609 


5613 


5616 


5633 


5644 


5656 


5657 


5686 



T10KI .MCR[ 10, 1141] 



AD* .5 



AUva 


1 53 o *t 


MTCBD 

l»l 4. V_i rx U 


3 1 ( 254 ) 


KS 10 


MICROCODE 


V124, 27- 


-UUL-84 


Page 


261 














Cposs 


Rsf ersncs 


L i s 1 1 ng 












Dooo 


ccpq 


5694 


5695 


5696 


5704 


5715 


5717 


5731 


5732 


5755 


5771 


C770 

O / / o 


C77K 




5792 


5794 


5796 


5799 


58 19 


5820 


5836 


5879 


5881 


cooo 

DOOO 


5885 


5887 


5889 


589 1 


5893 * 


5895 


591 1 


5914 


5916 


5924 


5925 


CQQ7 




5939 


5950 


5954 


5957 


5958 


5964 


5966 


5971 


5972 


5973 


RQ7R 


5983 


599 1 


5993 


5995 


5997 


6000 


6005 


6009 


6012 


6014 


6015 


fin i fi 
OU I o 


CAO 4 
Ou^ 1 


6022 


6024 


6030 


6039 


6040 


6044 


6046 


6051 


6059 


6060 


CAC 4 

DUO 1 


CAR 


6069 


6070 


6074 


6076 


6079 


6084 


6088 


6093 


6095 


6098 


CAQQ 


fi inn 


6111 


6113 


6115 


6122 


6 126 


6130 


6132 


6133 


6134 


6135 


b l 4U 


C4/H 
O I 4 1 


fi i 4R 
1 *+ o 


6 1 54 


6157 


6 158 


6 160 


6165 


6169 


6170 


6177 


6180 


b i o4 


D 1 OQ 


O If 1 


Pi 1 qo, 

O I 53 O 


6202 


62 10 


62 1 2 


62 15 


62 18 


6229 


6231 


6240 


624 1 


o24o 


b<£4b 


COR 4. 


D/30 


6254 


6256 


6257 


626 1 


6263 


6264 


6266 


6267 


bzby 


cope 
OZOO 


O*£oo 


629 1 


6292 


6293 


6299 


6301 


6304 


6309 


6310 


63 1 4 


a o 4 u 
bolt) 


do 1 y 


COO 4 
DO/ I 


DO/9 


6328 


633 1 


6333 


6334 


6335 


6337 


6345 


CO/17 

bo4 / 


C5 O /! P 
bo4o 


COCA 

DoOU 


fi^R 1 
OOO l 


6353 


6355 


6360 


6366 


6369 


6373 


6378 


6379 


6380 


boo i 


OOOO 


cop? 
OOo / 


6388 


6389 


6393 


6397 


6400 


6402 


6404 


6416 


O 4 * *£V»/ 




6424 


6425 


6427 


6430 


6432 


6434 


6436 


6438 


6449 


6451 


OH OO 


6464 


6467 


6501 


6502 


6506 


6509 


6518 


6520 


6525 


6550 


6553 




OJUO 


6578 


6579 


6587 


6589 


6591 


6593 


6596 


6600 


6602 


6614 


fifi 4 7 


fifi 1 Q 

OO 1 53 


662 1 


6623 


6629 


6637 


6657 


6663 


6668 


6671 


6674 


6676 


CCQ 4 


CCQO 


C707 
O / <c / 


6736 


6744 


6753 


6772 


6776 


6780 


6784 


6788 


6792 


CQAO 

boU-i 


DouO 


COAO 

uoUo 


fiP. 1 1 

OO 1 1 


68 1 3 


68 1 7 


68 18 


6822 


6824 


6839 


6841 


6844 


bo4b 


COC7 

bob / 


epep 
OoOO 


eppe 
OOoO 


6888 


6897 


6907 


6912 


69 17 


6925 


6929 


6933 


6938 


CQ OQ 

by dy 


CQ/1 O 

oy4o 




fiQ4fi 
Off O 


O 53 Jv 


6952 


6953 


6956 


6963 


6966 


6974 


6982 


C O O 

byyu 


CQQQ 

oyyy 


7AAA 


7AA 1 

/ \J\J 1 


7002 


7003 


7005 


7006 


7007 


7008 


7009 


/UlU 


7A 4 Q 
/ Vj 1 O 


7A 4 A 


ICS 1 R 

/v 13 


7018 


701 9 


7020 


702 1 


7022 


7023 


7024 


7025 


7AO 7 


7AOA 


7035 


7037 


7049 


7050 


7052 


7053 


7054 


7057 


7059 


7060 




7AR4 


7A7C 

/ \J 1 O 


7083 


7086 


7089 


7092 


7093 


7095 


7104 


7107 


7112 


7< HQ 

/ 1 iy 


7 19 9 


7127 


7 1 34 


7 1 37 


7 1 39 


7 140 


7151 


7152 


7154 


7169 


7180 


7 1 P 1 


7 1 P.fi 
/ 1 OO 


7 188 


7 193 


7 197 


7 198 


7208 


7210 


7212 


7214 


7216 


7217 


70H 


700c 


70OQ 

/ £^f 


7233 


7237 


7239 


7245 


7248 


7249 


7254 


7255 


7257 


70KQ 

/ zoy 


7OCA 
/ ZxjyJ 


79fiR 


7266 


7267 


7277 


7278 


7281 


7291 


7292 


7293 


7296 


70Q7 


79QP 
/ «i3o 


7<3A 4 


7308 


7316 


7322 


7328 


7332 


7334 


7335 


7338 


7340 


/ o4,£ 


/ o44 


7Q4fi 
/ o*tO 


7348 


7360 


736 1 


7377 


7378 


7380 


7384 


7391 


7393 


7007 


7 /I or\ 
/ 4zU 


1 AO 4 
f 4*t 1 


/ *t // 


74^3 


7424 


7425 


7426 


7427 


7428 


7429 


7430 


/ 4o i 


7/1 OO 

/ 4o<d 


/ too 


74^R 
/ too 


7439 


7443 


7445 


7447 


7449 


7454 


7458 


7468 


7470 


7 /i 7 
/4 / Z 


/ 4 / 4 


7/fp/I 


/ *tOD 


7488 


749 1 


7492 


7494 


7496 


7500 


7502 


75 1 4 


/ D 1 


7CQO 

/Do<£ 


/ O 


7556 


7558 


7560 


7562 


7565 


7578 


7581 


7587 


7590 


7CQC 

/ oyo 


7CAO 


7fi 1 7 
/ O 1 / 


7628 


7634 


7647 


7654 


7657 


7659 


7665 


7667 


767 1 


7C71 

/ b / 


7C7/I 
/ O / 4 


7RP 4 
/ Do l 


7707 


77 12 


7715 


7719 


7721 


7793 


7802 


7804 


7806 


/ 0U0 


7P<A 


7P A 9 


7826 


7833 


7843 


7846 


7860 


7861 


7865 


7912 


7Q 4 7 


7Q9 1 




7932 


7936 


7939 


7942 


7945 


7948 


7951 


7954 


7956 


7957 


7959 


8191 


8 194 


8195 


8198 


8200 


8209 


8220 


8224 


8226 


8240 


o/4D 




P.9R9 


8258 


8260 


8266 


8495 


8498 


8504 


8507 


8508 


8512 


83 1 4 


OQ IO 


PR 1 Q 


8520 


8527 


8529 


853 1 


8535 


8538 


8539 


8540 


8546 




occi; 
OOOj 


Rfi70 

OO / v 


8675 


8679 


8695 


8698 


8702 


8707 


8714 


8719 


8725 


Q707 


07 on 

/ ov_/ 


P7qc; 

O / OS 


874 1 


8749 


8750 


8754 


8758 


8764 


8766 


8768 


8770 


P779 


0774 


8776 


8778 


8780 


8782 


8783 


8784 


8789 


8792 


8808 


8814 


oo i b 


op HO 

oolo 


OPOQ 

Oo/f 


8833 


















COO 
bo«£ flf 


9 1 R 1 


2423 


2425 


2426 


2983 


2987 


2999 


3002 


3004 


3005 


3009 


3040 


3092 


3095 


4167 


4168 


4174 


4176 


4186 


4188 


4193 


4224 
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7 1 52 




7281 


7334 


7335 


7596 


7602 


7793 


7802 


*7 or\A 


8195 


8252 


8504 


8514 


8727 








6657 


6802 


7027 


7030 


7093 


7435 


8266 


8527 


6158 
















4 155 
















3988 


3993 


4105 


4458 


4543 


5290 


5294 


5319 


5616 


5819 


6170 


6257 


6301 


6310 


6315 


6325 


6776 


6780 


6784 


6792 


6808 


/ 1 D4 


70C7 


/ o*tz 


7424 


7425 


7426 


7861 


8191 


8245 


8249 


8508 


8698 


8702 


8707 


8714 


8719 


8792 






5916 


.6015 


6245 


6676 


' 7053 


7057 


7064 


/ uyo 


7346 


7488 


85 16 


8730 










5558 


6132 


6202 


6266 


6554 


669 1 


6736 


7oO 1 


2577 


31 10 


3284 


3369 


3403 


34 1 9 


3509 


ooyy 


3755 


3772 


3777 


3782 


OQ-4Q 

oo 1 y 


oooo 


4AC7 


4H7 H 


4366 


4370 


4420 


4426 


A A O "7 

442 / 


A A O O 
442o 


aaac: 




4641 


4699 


47 14 


4785 


4803 


A O O O 






5118 


5137 


5161 


5248 


5282 


5316 


5357 


5388 


548 1 


5483 


5485 


o4o / 


cc/IC 

bo4b 


D04 / 


OODU 


5552 


5701 


5703 


5705 


5713 


5796 


5802 


5962 


5980 


6204 


62 18 


6232 


o2o4 


COC7 


coco 


COKE 
Oo J J 


6387 


6434 


6459 


6473 


6500 


6520 


6521 


6643 


6650 


6871 


6885 


6889 


6892 


6894 


6930 


6985 


7104 


7443 


7447 


7455 


7456 


7457 


7492 


7496 


/ 4y<3 


8676 


8 / bU 


Q7QA 












4083 


4088 


4095 


4098 


4100 


4990 


4995 


5976 


6254 


6427 


6475 


6615 


6738 


6939 


7918 


8215 


4887 


4888 














4793 


4794 














2552 


2556 


2557 


2561 


2562 


2583 


2599 


2600 


2614 


2615 


2619 


2620 


2624 


2625 


2629 


2630 
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-1984 


MICRO 
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Page 
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Cross 


Reference 


Listing 














2634 






264 1 


2642 


2646 


2647 


2651 


2652 


2656 


2657 


2661 


2662 




2666 




2667 


267 1 


2672 


2676 


2677 


2766 


2796 


2797 


2806 


2807 


2816 




28 1 7 






2827 


2831 


2832 


2848 


2849 


2858 


2859 


2868 


2869 


2878 




2879 




2888 


2889 . 


2898 


2899 


2909 


2910 


2919 


2920 


2929 


2930 


2939 




2940 




4049 


4050 


4063 


4064 


4111 


4112 


4681 


8187 








AC DISP 


2137 




35 1 5 


6995 


6996 


7203 














2901 


B 


2125 


ft 


O 7QQ 


2809 


2819 


2829 


2834 


2851 


2861 


2871 


2881 


2891 


29 12 




2922 


2932 


2942 


4052 


4066 


41 14 












HAP 


2 1 27 


11 

ft 




4078 


4079 


4136 


4137 


4162 


4303 


4304 


4308 


4309 


4380 




5622 




5683 






















npi at 

UP L AIj 


2112 


ft 


T7 *7 >1 
Z / / 4 






















HRI R 


2 1 28 


# 


4 1 39 


4306 


431 1 


















UtSL r L K 


2118 


# 


5533 


5534 


5622 


5683 
















DBL R 


O 1 1 1 

£. I 1 1 




2765 


2766 


4078 


4079 


4 162 


4380 










*5337 


r L AC 


9 1 OQ 




5259 


5262 


5263 


5267 


5270 


5271 


5304 


5308 


5309 


5333 


5338 




5383 


5384 


5418 


5419 
















CI -CDTU 

r L BU 1 rl 


2131 


# 


526 1 


5265 


5269 


5273 


5306 


531 1 


5335 


5340 








CI _ T 

r L 1 


2117 


# 


5263 


527 1 


5309 


5338 
















CI _ M C ft/I 


O 1 




5260 


5264 


5268 


5272 


5305 


5310 


5334 


5339 








CI _ D 

r L K 


one 




5259 


5262 


5267 


5270 


5304 


5308 


5333 


5337 


5418 


5419 


5310 


ci _ niii 
r L KW 


9 1 1 fi 


# 


5260 


526 1 


5264 


5265 


5268 


5269 


5272 


5273 


5305 


5306 




30 1 1 




5334 


5335 


5339 


5340 














3183 


I 






2842 


2954 


3 1 74 


3 175 


3176 


3177 


3178 


3179 


3180 


3181 




*5 1 Ptd 

O lO't 




3 192 


3 193 


3 194 


3195 


3 196 


3197 


3198 


3199 


3210 


3211 


3212 




32 1 3 




32 1 4 


32 15 


32 16 


3217 


3227 


3228 


3229 


3230 


3231 


3232 


3233 




3234 




oo4y 


3350 


3351 


3352 


3353 


3354 


3355 


3356 


3461 


3462 


3463 




3464 






3466 


3467 


3468 


3476 


3477 


3478 


3479 


3480 


3481 


3482 




3490 




*3 A Q 1 


3492 


3493 


3494 


3495 


3496 


3503 


3504 


3515 


3517 


3668 




3670 




367 1 


3798 


3799 


3800 


3801 


3851 


3852 


3853 


3854 


3855 


3856 




3857 




3858 


3862 


3863 


3864 


3865 


3866 


3867 


3868 


3869 


3870 


3871 




3872 




3873 


3874 


3875 


3876 


3877 


3878 


3879 


3880 


3881 


3882 


3883 




ooo*t 




3885 


3886 


3887 


3888 


3889 


3890 


3891 


3892 


3893 


3897 


3898 








3900 




3905 


3906 


3907 


3908 


3909 


3910 


391 1 


3912 


3913 




39 14 




5108 


5384 


5848 


5849 


5850 


5851 


5852 


5853 


5854 


5856 


5857 




coco 
OoOO 




5859 


586 1 


5862 


5863 


5864 


5866 


5867 


5868 


5869 


5870 


5871 




JO / Z 




5873 


5907 


7736 


7737 


7738 


7740 


7741 


7743 


7744 


7746 


7747 








7749 


7750 


775 1 


7752 


7753 


7755 


7756 


7757 


7758 


7759 


7760 




776 1 






7764 


7765 


7766 


7767 


7768 


7769 


7770 


7771 


7773 


7774 




7775 




777c 


7777 


7778 


7779 


7780 


7782 


7783 


7784 


7785 


7786 


7787 




7788 




77QQ 




















2630 


I-PF 


2104 


ft 


2547 


2552 


2557 


2562 


2600 


2605 


2610 


2615 


2620 


2625 


2635 




2642 


2647 


2652 


2657 


2662 


2667 


2672 


2677 


2796 


2797 


2807 




2817 






2832 


2849 


2859 


2869 


2879 


2888 


2889 


2899 


2910 


2920 




2930 




2939 


2940 


2955 


3475 


3489 


3765 


4050 


4064 


4112 


4137 


4304 




*t Owl? 
























7538 


T OX 
1 U 1 


01 1Q 


# 


6995 


6996 


7203 


7524 


7525 


7526 


7527 


7535 


7536 


7537 


7549 




7550 


755 1 


7552 


78 17 


7818 


8187 












IR 


o 1 in 


# 


3669 






















I W 




ft 


2798 


2799 


2890 


289 1 


294 1 


2942 










2631 


M 


2124 


# 


2548 


2553 


2558 


2563 


2601 


2606 


2611 


2616 


2621 


2626 


2636 




2643 


2648 


2653 


2658 


2663 


2668 


2673 


2678 


2798 


2808 


2818 




2828 




2833 


2843 


2844 


2850 


2860 


2870 


2880 


2890 


2900 


2911 


2921 




2931 




2941 


4051 


4065 


4113 


4138 


4305 


4310 


7203 








R 


2105 




2583 


2841 


3185 


3186 


3187 


3188 


3189 


3190 


3201 


3202 


3203 




3204 




3205 


3206 


3207 


3208 


3219 


3220 


3221 


3222 


3223 


3224 


3225 
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Page 
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Cross 


Reference 


List ing 














« 

3226 




3236 


3237 


3238 


3239 


3240 


324 1 


3242 


3243 


3358 


3359 


3360 




3361 




3362 


3363 


3364 


3365 


3375 


3376 


3377 


0070 

33 / 8 


oo/y 


oooU 






3382 




3646 


4681 


4682 


4683 


4684 


4685 


5383 










R-PF 


2106 


ft 


2546 


2551 


2556 


2561 


2599 


2604 


2609 


26 14 


OC A Q 

2b 1 9 


<£o*£4 






2634 




2641 


2646 


2651 


2656 


266 1 


2666 


267 1 


2676 


2806 


28 1 6 






2831 




2848 


2858 


2868 


2878 


2898 


2909 


2919 


2929 


4049 


4063 


4111 




4136 




4303 


4308 




















ROUND 


2132 


ft 


5262 


5263 


5264 


5265 


5270 


5271 


5272 


5273 


5308 


5309 


5310 




531 1 




5337 


5338 


5339 


5340 


5383 


5419 












RW 


2108 


ft 


2549 


2554 


2559 


2564 


2601 


2602 


2606 


2607 


26 12 


26 1 7 


2622 




2627 




2632 


2637 


2643 


2644 


2648 


2649 


2654 


2659 


2664 


2669 


ZD / 4 




2679 




2808 


2809 


2818 


2819 


2828 


2829 


2833 


2834 


2850 


285 1 


2860 




2861 




2870 


2871 


2880 


2881 


2900 


2901 


291 1 


2912 


292 1 


2922 


293 1 




2932 




3392 


3393 


3394 


3395 


3396 


3397 


3398 


3399 


3408 


J4uy 


o4 1 U 




341 1 




3412 


3413 


34 14 


34 1 5 


405 1 


4052 


4065 


4066 


4 I I a 


A A A A 
4 1 1 4 


A A QR 
4 1 OO 




4139 




4305 


4306 


4310 


431 1 
















S 


2126 


ft 


2549 


2554 


2559 


2564 


2602 


2607 


2612 


2617 


2622 


2627 


2632 




2637 




2644 


2649 


2654 


2659 


2664 


2669 


2674 


2679 








SH 


2113 


ft 


2951 


2952 


2953 


















SHC 


2114 


ft 


2956 


2957 




















SJC- 


3309 


ft 


3349 


3358 


3375 


3392 


3408 


346 1 


3475 


3489 








SJCA 


3313 


ft 


3353 


3362 


3379 


3396 


34 12 


3465 


3479 


3493 








SJCE 


331 1 


ft 


3351 


3360 


3377 


3394 


34 10 


3463 


3477 


349 1 


5849 






SJCG 


3316 


ft 


3356 


3365 


3382 


3399 


34 1 5 


3468 


3482 




ROC/I 






SJCGE 


3314 


ft 


3354 


3363 


3380 


3397 


34 1 3 


3466 


3480 


3494 


ocno 
oOUo 


coco 




SJCL 


3310 


tt 


3350 


3359 


3376 


3393 


3409 


3462 


3476 


3490 


OCAil 

ob04 


CQ/IQ 

Oo4o 




SOCLE 


3312 


tt 


3352 


3361 


3378 


3395 


34 1 1 


3464 


3478 


3492 


5850 






SJCN 


3315 


tt 


3355 


3364 


3381 


3398 


34 14 


3467 


348 1 


3495 


5853 






TC- 


3165 


tt 


3210 


32 1 1 1 


32 19 


3220 
















TCA 


3167 


tt 


3214 


3215 


3223 


3224 
















TCE 


3166 


tt 


3212 


3213 


322 1 


3222 
















TCN 


3168 


tt 


3216 


3217 


3225 


3226 
















TN- 


3155 


tt 
























TNA 


3158 


ft 


3178 


3 179 


3 187 


3 188 
















TNE 


3156 


ft 


3176 


3177 


3 185 


3 186 


7526 














TNN 


3159 


tt 


3180 


3181 


3189 


3 190 


7527 














TO- 


3169 


tt 


3227 


3228 


3236 


3237 
















TOA 


3171 


ft 


3231 


3232 


3240 


324 1 
















TOE 


3170 


ft 


3229 


3230 


3238 


3239 
















TON 


3172 


tt 


3233 


3234 


3242 


3243 
















TZ- 


3161 


tt 


3192 


3193 


3201 


3202 
















TZA 


3163 


tt 


3196 


3197 


3205 


3206 
















TZE 


3162 


tt 


3194 


3 195 


3203 


3204 
















TZN 


3164 


tt 


3198 


3 199 


3207 


3208 
















W 


2107 


tt 


2548 


2553 


2558 


2563 


26 1 1 


26 16 


262 1 


_____ 
2626 


ZOO 1 


zboo 


2653 




2658 




2663 


2668 


2673 


2678 


2775 


2843 


2844 










W TEST 


2136 


tt 


2583 


4682 


4684 


















WORD-TNE 


3157 


ft 


7524 






















WORD-TNN 


3160 


ft 


7525 




















2231 




959 ft 


2160 


2179 


2183 


2227 


2227 


2227 


2228 


2228 


2230 


2230 




2231 




2231 


2249 


2250 


2267 


2275 




O O OA 


OOQfi 

zzyo 










2306 




2307 


2320 


2329. 


2330 


2333 


2334 


2338 


2342 


2351 


2360 


2362 




2363 




2364 


2392 


2403 


2404 


2404 


2414 


2415 


2417 


2418 


2422 


2429 




2429 




2493" 


2525 


2531 


2536 


2539 


2568 


2574 


2588 


2589 


2688 


2690 




2723 




2729 


2737 


2739 


2758 


2760 


2783 


2784 


2786 


2787 


2788 


2790 
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(U) MICROCODE OPTION(INI-rV@^H 
OPT 

(U) MICROCODE OPTIONKKIP^W^H 
OPT 

(U) MICROCODE OPTIONCKLP^W^H 
OPT 

(U) MICROCODE OPTION(NOC^V^^H 
OPT 

(U) MICROCODE 0PTI0N(N0N"W 
OPT 

(U) MICROCODE OPTION(UBA~W ~H 
OPT 

(U) MICROCODE OPTIONS 
(U) MICROCODE VERSION 
UCV 

(D) MODE 
(U) MULTI PREC 
(U) MULTI SHIFT 
(U) PHYSICAL 



(U) PI.CLR 



-AUG- 


1984 


MICRO 


31(254 


2803 




ZO I o 


2823 


2855 


3325 






3325 


3337 


3456 




oa cc 


3457 


3457 


353 1 




oDoD 


3535 


3538 


357 1 




oDov) 


3593 


3593 


363 1 




QCOO 
Ou O £. 


3635 


3640 


37 17 




O / 1 o 


3721 


3729 


3813 




QP. A A 


3815 


3825 


3978 




0Q70 


3978 


3997 


4034 






4039 


4041 


42 17 




AO 4.~7 


4217 


4692 


4749 




A 


4753 


4756 


5094 




b 1 2. 1 


5 122 


5129 


51 55 




b 1 Oo 


5 166 


5167 


5443 




c; A A *7 
b44 / 


5493 


5515 


5952 




CAQQ 

ouyy 


6099 • 


6348 


6449 




D4D4 


6454 


6510 


6630 




oooU 


6745 


6746 


6897 






6967 


6970 


7220 




1 O O 1 


7224 


7225 


7278 




707Q 


7303 


7304 


735 1 




/ OO 1 


7369 


7369 


7454 




7454 


7469 


7490 


7586 






7619 


7620 


7712 




77 1 5 


7717 


7725 


7840 




7843 


7843 


7843 


7929 




7929 


7929 


7930 


7939 




7939 


7939 


7940 


7945 






7947 


7948 


7953 




7QCC 


7958 


8244 


8673 




oc7p 
OO / o 


8739 


8745 


8830 




OpOA 
OouU 


8833 


8833 


1 239 


ft 








1 243 


u 
ft 








1263 


u 

ft 








1265 


u 

ft 


7042 






1269 


ft 








1273 


ft 


7043 






1245 


ft 








1249 


ft 


7039 






1251 


ft 








1253 










1257 


ft 








1259 


# 


1 U4 I 






1232 


# 








1276 


# 








1277 




TdAA 

f \JHH 






1337 


# 








964 # 


4399 


4451 


4466 


966 


2972 


2984 


3006 


1 133 


ft 


3954 


3978 


3998 


7398 




7439 


7453 


7486 


7860 




7929 


7932 


7939 


8833 










1 192 


# 


7331 







KS10 


MICROCODE 


V124, 27 


-UUL-I 


Cross 


Reference 


L i s t i ng 




2865 


2885 


2895 


2906 


3337 


3404 


3405 


3452 


3457 


3524 


3524 


3525 


3538 


3547 


3551 


3551 


3608 


3612 


3614 


3615 


3640 


3676 


3680 


3681 


373 1 


3734 


3736 


3738 


3841 


3842 


3843 


3953 


3998 


'3999 


4000 


4012 


4042 


4043 


4057 


4071 


4692 


4692 


4701 


4701 


4757 


4760 


4761 


4763 


5 130 


5 132 


5143 


5144 


5169 


5204 


5245 


5245 


59 1 1 


5925 


5927 


5927 


6349 


6350 


6375 


6376 


65 10 


6542 


6544 


6588 


6892 


6892 


6893 


6893 


697 1 


6975 


6978 


6979 


7228 


7229 


7232 


7233 


7307 


7308 


7308 


7308 


7370 


7375 


7438 


7442 


7495 


7495 


7495 


7496 


7622 


7622 


7622 


7644 


7725 


7727 


7729 


7822 


7845 


7846 


7846 


7846 


7931 


7932 


7932 


7932 


7941 


7942 


7942 


7942 


7948 


7948 


7949 


7950 


8517 


8525 


8541 


8656 


8793 


8794 


8794 


8794 


8833 








4469 


4476 


4590 


5544 


301 1 


4816 


4821 


4897 


4025 


6971 


6979 


7381 


7495 


7578 


7581 


7617 


7942 


7945 


7948 


7951 



Page 297 



2916 


2946 


3019 


3019 


3452 


3452 


3453 


3453 


3525 


3526 


3526 


3531 


3564 


3565 


3567 


3568 


3616 


3629 


3629 


3631 


3693 


3699 


3707 


3708 


3744 


3750 


3752 


3758 


3954 


3954 


3954 


3973 


4016 


4025 


4025 


4025 


4123 


4129 


4152 


4154 


4729 


4735 


4736 


4748 


4769 


4890 


4891 


5093 


5146 


5148 


5149 


5151 


5247 


5251 


5251 


5252 


5928 


5928 


5930 


5951 


6420 


6426 


6433 


6449 


6588 


6590 


6593 


6621 


6894 


6894 


6895 


6895 


6982 


7101 


7102 


7103 


7236 


7237 


7275 


7276 


7309 


7315 


7316 


7351 


7453 


7453 


7453 


7453 


7503 


7504 


7584 


7584 


7645 


7666 


7666 


7667 


7823 


7825 


7830 


7831 


7857 


7858 


7864 


7913 


7933 


7934 


7937 


7938 


7943 


7944 


7945 


7945 


7951 


7951 
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5577 
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7395 


7628 


7634 


7843 


7846 


8657 


8673 


8794 


8830 



T10KI .MCR[ 10, 1 141 ] 



11:45 11 -AUG- 1984 



MICRO 31(254) 



KS10 MICROCODE V124, 27-JUL-84 Page 298 
Cross Reference Listing # 



(U) 


PI 


.C01 


(u) 


PI 


C02 


(U) 


PI 


DIR 


(U) 


PI 


IP1 


(u) 


PI 


IP2 


(U) 


PI 


IPS 


(u) 


PI 


IP4 


(U) 


PI 


IP5 


(U) 


PI 


IP6 


(U) 


PI 


IP7 


(U) 


PI 


MBZ 


(U) 


PI 


.ON 


(U) 


PI 


REQ 


(u) 


PI 


SC1 


(U) 


PI 


SC2 


(u) 


PI 


SC3 


(U) 


PI 


. SC4 


(u) 


PI 


SC5 


(u) 


PI 


SC6 


(u) 


PI 


. SC7 


(U) 


PI 


. TCF 


(U) 


PI 


. TCN 


(U) 


PI 


. TSF 


(U) 


PI 


. TSN 


(U) 


PI 


. ZER 


(U) 


PXCT 



BIS-DST-EA 
BIS-SRC-EA 
CURRENT 



D1 



D2 
E1 
E2 

(U) RAMADR 
AC# 



AC*# 



1 181 
1 182 
1 191 
1 173 
1 174 
1 175 
1 176 
1 177 
1 178 
1 179 
1 190 
1 180 
1 193 
1 198 
1 199 
1200 
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2230 
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2290 
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2404 
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3456 
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3551 
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2885 
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3219 
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5263 
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5268 
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5271 
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! Cross Reference Listing 



OR i 7 


OQ07 


2832 


2849 


2859 


2869 


2879 


2888 


2889 


2899 


2910 


2920 






0QAO 


295 1 


2952 


2953 


2955 


2956 


2957 


3475 


3489 


3515 


O / OO 


/IAEA 


4064 


4112 


4 1 37 


4304 


4309 












4 4 CCt U 
1 1 DO ft 


0007 


0001 


2228 


2228 


2230 


2230 


2231 


2231 


2250 


2250 


2267 




OOQA 




OOQfi 


2301 


2307 


2320 


2330 


2334 


2338 


2351 


2360 


2 Jo J 


2ot>4 




OAf\1 


OAClA 


2404 


24 15 


2418 


2422 


2429 


2429 


2493 


2525 


O C O 4 

2od 1 


ZOOO 


zooy 


ZDOO 


2588 


2589 


2784 


2784 


2786 


2790 


2790 


301 9 




oo<dD 


qqot; 
Ov5/3 


Ooo / 


3337 


3404 


3404 


3405 


3452 


3452 


3453 


3453 


J400 


o400 


041=7 . 


*54S7 
0^0 / 


3524 


3524 


3525 


3525 


3526 


3531 


3535 


oOoo 




OJJ 1 


355 1 


3565 


3568 


357 1 


3586 


3593 


3593 


3612 


3615 


do 1 O 


outs 


OOc 


3632 


3632 


3635 


3640 


3640 


3676 


3681 


3681 


3693 


ORQQ 

poyy 


Q7riP 
O / \Jo 


3708 


37 1 8 


372 1 


373 1 


373 1 


3736 


3736 


3738 


3744 


3752 


o / OO 


OO 1 *t 


OO 1 *+ 


38 1 5 


3825 


3825 


3842 


3843 


3954 


3973 


3978 


3978 


QQQQ 


/IAAA 


40 1 2 


4016 


4025 


4025 


4035 


4035 


4039 


4043 


4217 


4217 


4by <d 




Airs a 


A1C\ A 


4729 


4729 


4735 


4735 


4736 


4749 


4753 


4757 


4/0 I 


*+ / Oo 


*t / 02J 


4890 


4890 


489 1 


5094 


5122 


5122 


5130 


5130 


5132 


5 1 46 


O .1 4o 


□ 131 


O 1 O 1 


O 1 OO 


5 1 58 


5 169 


5204 


5245 


5245 


5247 


5252 


59 1 1 


COOT 


oy <do 


coon 

030U 




6099 


6349 


6350 


6376 


6449 


6454 


6510 


6542 


OD4z 


0044 


OOOO 


OOOO 


6590 


6593 


662 1 


6630 


6746 


6892 


6893 


COO/I 


6895 


6897 


69 1 1 


6967 


6970 


6975 


6978 


6982 


7102 


7103 


7220 


722 1 


7224 


7225 


7228 


7229 


7232 


7233 


7236 


7237 


7275 


7276 


7279 


7304 


7304 


7307 


7308 


7308 


7309 


7315 


7316 


7351 


7351 


7369 


7369 


7370 


7442 


7453 


7454 


7469 


7469 


7490 


7495 


7496 


7504 


7584 


7586 


7619 


7620 


7622 


7622 


7645 


7666 


7667 


7712 


7715 


7717 


7725 


7727 


7729 


7823 


7825 


7831 


7831 


7843 


7845 


7846 


7846 


7858 


7858 


7864 


7929 


7930 


7931 


7932 


7932 


7933 


7934 


7937 


7938 


7939 


7939 


7940 


7941 


7942 


7942 


7943 


7944 


7945 


7945 


7946 


7947 


7948 


7948 


7949 


7950 


7951 


7951 


7952 


7953 


7955 


8543 


8658 


8672 


8678 


8794 


8795 


8809 


8830 


8833 


8833 



















WORK 


1019 


ft 










AC0 


1060 


ft 










AC 1 


1061 


ft 










AC2 


1062 


ft 










AC3 


1063 


ft 










ADJBPW 


1038 


ft 


5013 


5034 






ADJP 


1033 


ft 


4948 


4975 






ADUPTR 


1035 


ft 


4689 


4966 


5028 




ADJQ1 


1036 


ft 


4971 


4989 






ADJR2 


1037 


ft 


4981 


5048 






ADJS 


1034 


ft 


4961 


4976 


5039 




APR 


1040 


ft 


2167 


7049 


7071 


7083 


BADW0 


1020 


ft 


8238 








BADW1 


1021 


ft 


8239 








BDH 


1050 


ft 


6296 


6371 


6380 


6402 


BDL 


1051 


ft 


6294 


6337 


6377 


6381 


CBR 


1030 


ft 


7210 


7226 






CMS 


1047 


ft 


61 19 


6131 


6132 


61'42 


CSTM 


1031 


ft 


7214 


7234 






DDIV 5GN 


1064 


ft 










DECHI 


1069 


ft 


2176 


2178 


6425 




DECLO 


1068 


ft 


2175 


2177 


6416 




DIV 


1023 


'ft 










DVS0R H 


1065 


ft 










DVS0R L 


1066 


ft 










E0 


1042 


ft 


5921 


6347 


6619 


6629 
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Cross Reference Listing 



(D) 
(U) 



(U) 
(U) 



E1 


1043 ff 


5934 


5937 


6373 


6552 


6553 


6728 


6731 


6736 


6744 






FILL 


1046 ff 


6103 


6126 


6139 


6614 


6691 


6697 


681 1 


6913 








FSIG 


1048 ff 


6576 


6578 




















HSBADR 


1039 ff 


2159 


7216 


7238 


7912 


7917 














MSK 


1045 ff 


5984 


6155 


6737 


















MUL 


1022 ff 
























PERIOD 


1056 ff 


7265 


7317 


7322 


















PTA.E 


1072 ff 


7403 






















PTA.U 


1073 ff 


7402 






















PUR 


1032 ff 


7212 


7230 




















SBR 


1029 ff 


7208 


7222 


















6177 


SLEN 


1044 ff 


5967 


5991 


5995 


6012 


6024 


6040 


6044 


6072 


6079 


6173 


6180 
6956 


6184 


6352 


6353 


6355 


6358 


6724 


6818 


6822 


6824 


6938 


6952 


SV. ARX 


1026 ff 


6056 


6061 


7838 


7910 


7921 


7936 


7959 


821 1 


8538 


8766 




SV. AR 


1025 ff 


6029 


6059 


7935 


7956 


8207 


8546 












SV. AR1 


1075 ff 
























SV.BRX 


1028 ff 


5175 


6057 


6062 


6929 


6944 


6953 


8208 


8540 








SV.BR 


1027 ff 


6055 


6060 


8218 


8228 


8230 


8232 


8234 


8539 


8724 






SV. VMA 


1024 ff 


7685 


7691 


7693 


7925 


7954 


7957 


8197 


8210 


8498 


8741 


8750 


TIMEO 


1054 ff 


2169 


7254 


7287 


7297 
















TIME 1 


1055 ff 


2170 


7245 


7252 


7284 


7298 


7301 


8735 










TRAPPC 


1074 ff 


6964 


8754 




















TTG 


1057 # 


7259 


7263 


7318 


















YSAVE 


1071 # 


3662 


7651 


7654 


7659 


7671 


7673 












WRITE 


1352 ff 






















2760 


WRITE CYCLE 


1127 # 


2568 


2574 


2588 


2688 


2690 


2723 


2729 


2737 


2739 


2758 


2784 


2790 


2803 


2813 


2823 


2855 


2865 


2885 


2895 


2906 


2916 


2946 




3404 


3629 


3632 


3640 


3681 


3731 


3736 


3814 


3825 


3954 


3978 


4025 




4035 


4057 


4071 


4123 


4129 


4152 


4154 


4729 


4735 


4890 


5122 


5130 




5146 


5151 


5245 


5443 


5447 


5493 


5515 


6542 


6588 


7304 


7308 


7369 




7469 


7617 


7628 


7634 


7831 


7843 


7846 


7929 


7932 


7939 


7942 


7945 




7948 


7951 


8517 


8522 


8712 


8794 


8817 


8833 










WRITE TEST 


1126 ff 


2568 


2574 


2588 


2688 


2690 


2723 


2729 


2737 


2739 


2758 


2760 


2784 


2790 


2803 


2813 


2823 


2855 


2865 


2885 


2895 


2906 


2916 


2946 




3404 


3629 


3632 


3640 


3681 


3731 


3736 


3814 


3825 


3954 


3978 . 


4025 




4035 


4057 


4071 


4123 


4129 


4152 


4154 


4729 


4735 


4890 


5122 


5130 




5146 


5151 


5245 


5443 


5447 


5493 


5515 


6542 


6588 


7304 


7308 


7369 




7439 


7453 


7469 


7486 


7495 


7578 


7581 


7617 • 


7628 


7634 


7831 


7843 




7846 


7860 


7929 


7932 


7939 


7942 


7945 


7948 


7951 


8248 


8517 


8523 




8794 


8817 


8830 


8833 


















WRU CYCLE 


1163 ff 


7440 




















2256 


ff 


974 ff 


2148 


2150 


2152 


2154 


2157 


2187 


2201 


2237 


2241 


2244 




2259 


2262 


2419 


2421 


2434 


2456 


2457 


2744 


2746 


2751 


2753 


2770 




3041 


3112 


3114 


3528 


3537 


3540 


3542 


3543 


3544 


3577 


3582 


3585 




3591 


3605 


3606 


3626 


3639 


3725 


3754 


3817 


3832 


3918 


3920 


3922 




3924 


3926 


3928 


3930 


3932 


3939 


3942 


3982 


3987 


3989 


3992 


3994 




4022 


4030 


4037 


4104 


4105 


4357 


4394 


4395 


4405 


44 1 3 


4458 


45 1 1 




4537 


4544 


4635 


4800 


4944 


4946 


4951 


4969 


4973 


4979 


4983 


5012 




5017 


5051 


5055 


5062 


5115 


5211 


5216 


5225 


5231 


5236 


5289 


5290 




5293 


5294 


5318 


5319 


5323 


5351 


5352 


5388 


5392 


5412 


5413 


5550 




5552 


5632 


5652 


5653 


5672 


5675 


5703 


5705 


5879 


5881 


5883 


5885 




5887 


5889 


5891 


5893 


5895 


5912 


5915 


5939 


5955 


5959 


6094 


6096 




6154 


6159 


6166 


6171 


6178 


6182 


6198 


6240 


6256 


6257 


6263 


6269 




6289 


6302 


6304 


631 1 


6316 


6323 


6326 


6382 


6396 


6398 


6405 


6430 



; T 10KI . MCRt 10,1141] 



I -AUG- 


1984 


MICRO 


3 1 ( 254 ) 


KS10 


MICROCODE 


V124, 27- 


-JUL-84 


Page 


307 














Cross 


R©f ©rsnc© 


L 1 st i ng 












6436 


6452 


6464 


6467 


6475 


6487 


6490 


6507 


6522 


6580 


659 1 


6600 


6602 


66 18 


6637 


6658 


6663 


6672 


6675 


675 1 


6773 


6777 


678 1 


6785 


6789 


6793 


6803 


6809 


6907 


69 18 


6985 


6990 


6999 


7000 


7001 


7005 


7006 


7007 


7008 


701 3 


7014 


701 5 


7018 


7019 


7020 


702 1 


7022 


7023 


7024 


7025 


7027 


7030 


7036 


705 1 


7052 


7055 


7056 


7058 


706 1 


7063 


7065 


7077 


7087 


7090 


7094 


7 108 


7113 


7116 


7 120 


7 1 35 


7 1 52 


7 1 53 


7 154 


7 180 


7 189 


7 197 


72 17 


7239 


7248 


7267 


7282 


7334 


7335 


7378 


7380 


739 1 


7393 


7420 


742 1 


7422 


7423 


7424 


7425 


7426 


7427 


7428 


7429 


7430 


743 1 


7432 


7433 


7436 


7447 


7456 


7457 


7472 


7492 


7499 


7589 


7597 


7603 


7616 


7648 


7650 


7664 


7707 


7793 


7802 


7804 


7806 


7808 


7810 


7812 


7848 


7851 


7862 


7914 


8192 


8196 


8199 


8224 


8226 


8240 


8250 


8253 


8259 


8267 


8492 


8505 


8509 


8513 


8515 


8528 


8529 


8531 


8536 


8652 


8662 


8666 


8676 


8681 


8697 


8700 


8703 


8706 


8715 


8720 


8728 


8790 
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Dcode Loc'n 1 2 3 4 5 



D 


0000 


3904 


5848 


5849 


5850 


5851 


5852 


D 


0010 


5856 


5857 


5858 


5859 


5861 


5862 


D 


0020 


5866 


5867 


5868 


5869 


5870 


5871 


D 


0030 


3851 


3852 


3853 


3854 


3855 


3856 


D 


0040 


3862 


3863 


3864 


3865 


3866 


3867 


D 


0050 


3870 


3871 


3872 


3873 


3874 


3875 


D 


0060 


3878 


3879 


3880 


3881 


3882 


3883 


D 


0070 


3886 


3887 


3888 


3889 


3890 


3891 


D 


0100 


3897 


3898 


3899 


3900 


3905 


3765 


D 


01 10 


5533 


5534 


5622 


5683 


4078 


4079 


D 


0120 


2765 


2766 


5418 


5907 


2774 


2775 


D 


0130 


3908 


3909 


5384 


4681 


4682 


4683 


D 


0140 


5259 


3910 


5260 


5261 


5262 


5263 


D 


0150 


5267 


391 1 


5268 


•5269 


5270 


5271 


D 


0160 


5304 


3912 


5305 


5306 


5308 


5309 


D 


0170 


5333 


3913 


5334 


5335 


5337 


5338 


D 


0200 


2546 


2547 


2548 


2549 


2551 


2552 


D 


0210 


2556 


2557 


2558 


2559 


2561 


2562 


D 


0220 


4111 


4112 


4113 


4114 


4136 


4137 


D 


0230 


4303 


4304 


4305 


4306 


4308 


4309 


D 


0240 


2951 


2952 


2953 


2954 


2955 


2956 


D 


0250 


2583 


5108 


3503 


3p04 


3515 


3517 


D 


0260 


3668 


3669 


3670 


3671 


3798 


3799 


D 


0270 


4049 


4050 


4051 


4052 


4063 


4064 


D 


0300 


3349 


3350 


3351 


3352 


3353 


3354 


D 


0310 


3358 


3359 


3360 


3361 


3362 


3363 


D 


0320 


3461 


3462 


3463 


3464 


3465 


3466 


D 


0330 


3375 


3376 


3377 


3378 


3379 


3380 


D 


0340 


3475 


3476^ 


3477 


3478 


3479 


3480 


D 


0350 


3392 


3393 


3394 


3395 


3396 


3397 


D 


0360 


3489 


3490 


3491 


3492 


3493 


3494 


D 


0370 


3408 


3409 


3410 


341 1 


3412 


3413 


D 


0400 


2796 


2797 


2798 


2799 


2806 


2807 


D 


0410 


2816 


2817 


2818 


2819 


2826 


2827 


D 


0420 


2831 


2832 


2833 


2834 


2841 


2842 


D 


0430 


2848 


2849 


2850 


2851 


2858 


2859 


D 


0440 


2868 


2869 


2870 


2871 


2878 


2879 


D 


0450 


2888 


2889 


2890 


2891 


2898 


2899 


D 


0460 


2909 


2910 


291 1 


2912 


2919 


2920 


D 


0470 


2929 


2930 


2931 


2932 


2939 


2940 



D 


0500 


2599 


2600 


2601 


2602 


2604 


2605 


D 


0510 


2609 


2610 


2611 


2612 


2614 


2615 


D 


0520 


2619 


2620 


2621 


2622 


2624 


2625 


D- 


0530 


2629 


2630 


2631 


2632 


2634 


2635 


D 


0540 


2641 


2642 


2643 


2644 


2646 


2647 


D 


0550 


2651 


2652 


2653 


2654 


2656 


2657 


D 


0560 


2661 


2662 


2663 


2664 


2666 


2667 


D 


0570 


2671 


2672 


2673 


2674 


2676 


2677 
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6 


7 


5853 


5854 


DoOo 




5872 


5873 


3857 


3858 


3868 


3869 


3876 


3877 


3884 


3885 


3892 


3893 


3906 


3907 




t toou 


5419 


5383 


4684 


4685 


5264 


5265 


5272 


5273 


5310 


5311 


5339 


5340 


2553 


2554 






4138 


4139 


4310 


431 1 


2957 


3914 


3646 


8187 


3800 


3801 


4065 


4066 


3355 


3356 




OOD3 


3467 


3468 


3381 


3382 


3481 


3482 


3398 


3399 


3495 


3496 


3414 


3415 


2808 


2809 


OQOQ 




2843 


2844 


2860 


2861 


2880 


2881 


2900 


2901 


2921 


2922 


2941 


2942 


2606 


2607 


2616 


2617 


2626 


2627 


2636 


2637 


2648 


2649 


2658 


2659 


2668 


2669 


2678 


2679 



T10KI .MCtf[ 10, 1 141 ] 11:45 11-AUG-1984 



J 


Dcode Loc'n 





1 


2 


3 


D 


0600 


3174 


3175 


3176 


3177 


D 


06 10 


3 1 83 


3 1 84 


3 1 85 


3 1 86 


D 


0620 


3192 


3193 


3194 


3195 


D 


0630 


3201 


3202 


3203 


3204 


D 


0640 


3210 


321 1 


3212 


3213 


D 


0650 


3219 


3220 


3221 


3222 


D 


0660 


3227 


3228 


3229 


3230 


D 


0670 


3236 


3237 


3238 


3239 


D 


0700 


6995 


6996 


7203 


7736 


D 


0710 


7524 


7525 


7535 


7536 


D 


0720 


7526 


7527 


7537 


7538 


D 


0730 


7746 


7747 


7748 


7749 


D 


0740 


7755 


7756 


7757 


7758 


D 


0750 


7764 


7765 


7766 


7767 


D 


0760 


7773 


7774 


7775 


7776 


D 


0770 


7782 


7783 


7784 


7785 



MICRO 31(254) KS10 MICROCODE V124, 27-UUL-84 Page 
Location / Line Number Index 



4 


5 


6 


7 


3178 


3179 


3180 


3181 


3187 


3188 


3189 


3190 


3196 


3197 


3198 


3 199 


3205 


3206 


3207 


3208 


3214 


3215 


3216 


3217 


3223 


3224 


3225 


3226 


3231 


3232 


3233 


3234 


3240 


324 1 


3242 


3243 


7817 


78 18 


7737 


7738 


7549 


7550 


7740 


7741 


7551 


7552 


7743 


7744 


7750 


7751 


7752 


7753 


7759 


7760 


7761 


7762 


7768 


7769 


7770 


7771 


7777 


7778 


7779 


7780 


7786 


7787 


7788 


7789 



T10KI .MCR[ 10, 1 141 ] 1 1 :45 





Ucode Loc'n 





1 


u 


0000 


2148: 


791 1 : 


u 


0010 


2181 = 


79 1 2 : 


u 


0020 


3630= 


2151 


u 


0030 


3558 = 


4120= 


u 


0040 


2353: 


2357: 


u 


0050 


2406: 


2412: 


u 


0060 


3828 = 


2159 


u 


0070 


4751 = 


2160 


u 


0100 


2162 


2240= 


u 


01 10 


2 167 


2258 = 


u 


0120 


4175 = 


4177 = 


u 


0130 


4194 = 


4196 = 


u 


0140 


2190= 


2193 = 


u 


0150 


3550= 


2201 = 


u 


0160 


4331 = 


4334 = 


u 


0170 


5924 = 


4148 = 


u 


0200 


5781 = 


2291 = 


u 


0210 


5789 = 


23 16 = 


u 


0220 


3708 = 


3710= 


u 


0230 


6892 = 


6844 = 


u 


0240 


4690= 


4691 = 


u 


0250 


3325 = 


3328 = 


u 


0260 


2186 = 


2187 = 


u 


0270 


3428 = 


3431 = 


u 


0300 


3585 = 


3589 = 


u 


03 10 


401 3 = 
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u 


0320 


3605 = 


3606 = 


u 


0330 


4356 = 


4358 = 


u 


0340 


4787 = 


4790= 


u 


0350 


4729 = 


4730= 


u 


0360 


4883 = 


4884 = 


u 


0370 


4513 = 


2371 


u 


0400 


4035: 


2383 


u 


04 10 


4809 = 
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u 


0420 


5480= 


5481 = 


u 


0430 


5488 = 


2421 


u 


0440 


5500= 


6320= 


u 


0450 


5504 = 


2427 


u 


0460 


6177 = 


6179 = 


u 


0470 


7471 = 


2721 


u 


0500 


5992 = 


5994 = 


u 


0510 


6378 = 


2786 


u 


0520 


5742 = 


5743 = 


u 
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5754 = 
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u 


0540 


6073 = 
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2361 : 


2369: 


2379: 


2382 


2433: 


2155 
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4413 


5041 = 


5442 = 


3831 = 


3835 


4755 = 


5443 = 


4759 = 
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2243 = 
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2264 = 
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5322 = 
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2320= 
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2330 
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3331 = 


3334 = 


3337 = 
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4719 = 


4722 


3434 = 


3437 = 


3440= 


3443 
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4oO i - 
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2340 
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4443 = 
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2231 = 


4514 = 


4515 
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2415 = 
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4707 = 


2434 = 
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5483 = 


5484 = 


5485 
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5501 = 


6322 = 


5502 = 


2425 


2430 


5615 = 


2538 = 


2541 


5835 = 


5839 = 


6181 = 


6183 


5605 = 


5607 = 


7473= 


7475 


2990= 


2994 = 


5996 = 


5998 


2791 


5728 = 


3020= 


3021 


5745 = 


5746 = 


5748 = 


5749 


2972 


6817 = 


3039 = 


3040 


6077 = 


4184 = 


3070= 


3071 


2985 


5018 = 


3074 = 
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4204 = 


2988 
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3004 


5216 = 


5971 = 


5972 
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5426 = 


6768 = 


5427 = 


6770= 
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u 
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5643 = 
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6790= 
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u 
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U / 4U 
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3146 = 


3148 = 
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3389 = 
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6043 = 


6044 = 
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6810= 
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u 
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6624 = 
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u 
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U 


1010 
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7561 = 


3582 = 
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6 1 95 = 
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3640= 
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u 
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6727 = 


6728 = 


3299 


7280= 


7283 = 
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u 
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7ono = 


7304 = 


7305 = 
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57 16 = 


7658 = 


5717 = 
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u 
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5662 = 


8222 = 


3553 


8224 = 


5667 = 
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8232 = 
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7686 = 


7689 = 


7692 = 


u 
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8765 = 


8767 = 


8769 = 


8771 = 


8773 = 


8775 = 


8777 = 


u 


1 1 10 


8781 = 


8782 = 


8783 = 


8785 = 


8737 = 


8738 = 


8739 = 
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u 
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3660= 


3595 = 


3700= 


3732 = 


3736 = 


3757 = 


u 
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0770 = 
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3783 = 


3786 = 


3788 = 


3792 = 


3793 = 


3945 = 


1 1 

u 


A A A A 


O 53 Vy 


3992 = 


3995 = 


3999 = 


4089= 


4090= 


4099 = 


1 1 
u 
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4 104 = 


4 105 = 


4122 = 


4123= 


4128 = 


4129 = 


4131 = 


1 1 


i a psa 


4 1 52 = 


4 1 53 = 


4154 = 


4156 = 


4209 = 


4210= 


4217 = 


1 1 
u 
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43 19 = 


4321 = 


4346= 


4349= 


4367 = 


4371 = 


4373= 


U 


1200 


4389 = 


4391 = 


4393 = 


4394 = 


4403 = 


4404 = 


4419 = 


u 


1210 


4422 = 


4423 = 


4426 = 


4427 = 


4428 = 


4429 = 


4437 = 


1 1 

u 


A OOA 




4454;= 


4463 = 


4464 = 


448 1 = 


4482 = 


4532 = 


1 1 
u 


1 ZoU 




4535 = 


454 1 = 


4542 = 


4551 = 


4552 = 


4555 = 


u 






4583 = 


4597 = 


4601 = 


4613 = 


46 14 = 


4618 = 


1 1 

u 


Hi OKA 




4624 = 


4639 = 


464 1 = 


4645 = 


4646 = 


4941 = 


1 1 

u 


4 OCA 


4960= 


4962 = 


4965 = 


4966 = 


4996 = 


4997 = 


5031 = 


U 


•1 07A 


5060= 


5063= 


5096= 


5098= 


5124 = 


5131 = 


5135 = 


u 


1300 


5140= 


5142 = 


5147 = 


5152 = 


5164 = 


5165 = 


5249= 


U 


1310 


5289 = 


5290= 


5293 = 


5294 = 


5298 = 


5299 = 


5318 = 


U 


1320 


5348 = 


5349 = 


5351 = 


5352 = 


5357 = 


5358 = 


,5360= 


u 


1330 


5364 = 


5365 = 


5389 = 


5390= 


5393 = 


5394 = 


5396 = 


u 


1340 


5404 = 


5405 = 


5412 = 


5413 = 


5434 = 


5435 = 


5438 = 


u 


1350 


5445 = 


5446 = 


5447 = 


5449 = 


5492 = 


5493 = 


5496 = 


u 


1360 


551 1 = 


5512 = 


5513 = 


5514 = 


5551 = 


5553 = 


5556 = 


u 


1370 


5562 = 


5563 = 


5570= 


•5571= 


5612 = 


5613 = 


5630= 
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6578= 
6172 = 
4229 = 
6377 = 
6360= 
6464 = 
6483 = 
6493 = 

6566= 
6731 = 
6778 = 
6794 = 
3068 
6814 = 
3076 
7426 = 

3091 
7563 = 
7589 = 
7590= 
7285 = 
7660= 
8226 = 
7694 = 

8779 = 
3574 
3760= 
3955 = 
4101 = 
4132 = 
4218 = 
4375 = 

4420= 
4438 = 
4533 = 
4556 = 
4619 = 
4944 = 
5033= 
5138 = 

5250= 
5319 = 
5361 = 
5397 = 
5439 = 
5498 = 
5558 = 
5631 = 
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2 
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4 


5 
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U 


1400 


2227 


2228 


2568 


2571 


2574 


2578 


2588 


2688: 
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u 






07 1 R 


27 1 7 


2720 


2723 


2726 


2729 


2735 : 


U 


1420 


2737 


2739 


2742 


2749 


2744 


2746 


2751 


2753: 


u 


1430 


2756 


3403 


2758 


2760 


2770 




2771 


3419: 


u 


1440 


3472 


2803 


2813 


2823 


2838 


2855 


2865 


2875: 


u 


1450 


2885 


2895 


2905 


2916 


2926 


2936 


2946 


4084: 


u 


1460 


7542 


7546 


3016 


7543 


3066 


3067 


3085 


591 1 : 


u 


1470 


3138 


3139 


3268 


3270 


3273 


3276 


3369 


3387 : 


u 


1500 










2484 


2489 


2495 




u 


1510 










25 16 


2521 


2527 


2533: 


u 


1520 


3524 


3525 


3527 


3528 


3529 


3532 


3533 


3534: 


u 


1530 


3536 


3537 


3539 


3540 


3541 


3542 


3543 


3544 : 


u 


1540 


3600 


3650 


3500 


3677 


3690 


3719 


3752 


3510: 


u 


1550 


3805 


3770 


3812 


8193 


3825 


3839 


3940 


4030: 


u 


1560 


4057 


4071 








2780 


4167 


2785: 


u 


1570 


5317 


4144 






5345 




5279 


5282 : 


u 


1600 


4315 


4324 














1 1 


ir in 

ID IU 


4688 


3486 


2966 


2969 


753 1 


4096 


5388 


7532 : 


u 


1620 


4696 


5409 


2980 


2982 


4700 


4701 


5425 


4385: 


u 


1630 


4710 


5627 


3001 


3003 


4712 


5543 


5686 


5546: 


u 


1640 


5112 


4117 


5114 


5117 


7557 






7559: 


u 


1650 


7793 


7799 


7802 


7804 


7806 


7808 


7810 


7812: 


u 


1660 


3930 


3918 


3920 


3922 


3924 


3932 


3926 


3928: 


u 


1670 


















u 


1700 


7036 


6999 


7000 


7001 


7049 


7083 


7002 


7003: 


1 1 
u 




7nns 


7006 


7007 


7008 


733 1 


7328 


7009 


7010: 


u 


1720 


7013 


7186 


7376 


7102 


7146 


7177 


7014 


7015: 


u 


1730 


7018 


7019 


7020 


7021 


7022 


7023 


7024 


7025: 


u 


1740 


5879 


5881 


5883 


5885 


5887 




5889 


5891 : 


u 


1750 


5893 


5895 






7824 


7832 






u 


1760 


7208 


7210 


7212 


7214 


7291 


7323 


7216 


7217: 


u 


1770 


7220 


7224 


7228 


7232 


7275 


7315 


7236 


7239: 


u 


2000 


5652 = 


5653 = 


5673 = 


5674 = 


5676 = 


5678 = 


5693 = 


5694 = 


1 1 


on in 


5703 = 


= 5704= 


= 5712= 


= 5713= 


= 5714= 


5715 = 


5731 = 


5732 = 


u 


2020 


5720= 


5982 = 


5721 = 


5983 = 


5764 = 


= [ 5765 = 


5769 = 


5770= 


u 


2030 


5774 = 


5776 = 


5801 = 


5802 = 


5809 = 


*\ 5810= 


= 5819 s 


= 5820= 


u 


2040 


5913 = 


5956 = 


5938 = 


5940= 


5915 = 


5957 = 


5960= 


= 5963= 


u 


2050 


5965 = 


5966 = 


6008 = 


6010= 


6014 = 


6015 = 


6029 = 


603 1 = 


u 


2060 


6034 = 


6036 = 


6047 = 


6049 = 


6058 = 


6161 = 


6059= 


= 6162= 


u 


2070 


6094 = 


6096 = 


6098= 


6099 = 


6095 = 


6097 = 


6102 = 


6104 = 


u 


2100 


6112 = 


6113 = 


6139 = 


6140= 


6146 = 


6149 = 


6164 = 


6167 = 


u 


21 10 


6185 = 


6189 = 


6199 = 


6200= 


6203 = 


= 6205= 


6239 = 


= 6240= 


u 


2120 


6252 = 


6253 = 


6256 = 


6257 = 


6260= 


6261 = 


6266 = 


6268 = 


u 


2130 


6269 = 


6271 = 


6279 = 


6280= 


6290= 


6291 = 


6300= 


6302 = 


u 


2140 


6295 = 


6304 = 


6297 = 


6306 = 


6308 = 


6309 = 


6314 = 


6317 = 


u 


2150 


6327 = 


6328 = 


6332 = 


6333 = 


6338 = 


6339 = 


6341 = 


6345 = 


u 


2160 


6383 = 


6384 = 


6388 = 


6389 = 


6395 = 


6396 = 


6397 = 


6398 = 


u 


2170 


6399 = 


6400= 


6417 = 


6418 = 


6421 = 


6551 = 


6423 = 


6552 = 
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U 2420 
U 2430 
U 2440 
U 2450 
U 2460 
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U 2510 
U 2520 
U 2530 
U 2540 
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U 2600 
U 2610 
U 2620 
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U 2660 
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U 2740 
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U 2760 
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2 


3 
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,5 


6 
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6424 = 


6425 = 


6431 = 


6432 = 


6437 = 


6439 = 


6458 = 


6459 = 


6453 = 


3579 


6466 = 


6467 = 


6454 = 


3612 


6472 = 


6473 = 


6499 = 


6500= 


6524 = 


6527 = 


6541 = 


6542 = 


6571 = 


6572 = 


6592 = 


6594 = 


6616 = 


6618 = 


6620= 


662 1 = 


6638 = 


6640= 


666 1 = 


6665 = 


6667 = 


6669 = 


6696 = 


6697 = 


6750= 


6751 = 


6755 = 


6757 = 


6801 = 


6803 = 


6823 = 


6825 = 


6840= 


6841 = 


6850= 


6854 = 


6869 = 


6872 = 


6874 = 


6886 = 


6875 = 


6887 = 


6926 = 


6927 = 


6934 = 


6935 = 


6942 = 


6943 = 


6945 = 


6946 = 


6972 = 


6980= 


6989 = 


6990= 


7057 = 


7058 = 


7059 = 


7060= 


7062 = 


7063 = 


7064 = 


7065 = 


7067 = 


7068 = 


7111 = 


71 14= 


7121 = 


7126 = 


7133 = 


7136 = 


7148 = 


7151,= 


7154 = 


7155 = 


7179 = 


7180= 


7187 = 


7190= 


7196 = 


7 197 = 


7253 = 


7254 = 


7256 = 


7930= 


7258 = 


7931 = 


7264 = 


7265 = 


7296 = 


7297 = 


7332 = 


7333 = 


7334 = 


7335 = 


7338 = 


7339 = 


7340= 


7341 = 


7342 = 


7343 = 


7344 = 


7345 = 


7346 = 


7347 = 


7379 = 


7381 = 


7387 = 


7388 = 


7392 = 


7394 = 


7400= 


7402 = 


7441 = 


7444 = 


7445 = 


7446 = 


7457 = 


7458 = 


7468 = 


7469 = 


7485 = 


7487 = 


7489 = 


749 1 = 


7493 = 


7495 = 


7499 = 


7500= 


7514 = 


7515 = 


7518 = 


7519 = 


7576 = 


7577 = 


7585 = 


7588 = 


7595 = 


7597 = 


7601 = 


7603 = 


7614= 


7615 = 


7621 = 


7622 = 


7627 = 


7629 = 


7633 = 


7635 = 


7646 = 


7647 = 


7650= 


7652 = 


7655 = 


7656 = 


7665 = 


7666 = 


7672 = 


7673 = 


7700= 


7701 = 


7706 = 


7707 = 


7847 = 


7848 = 


7859 = 


7860= 


7863 = 


7867 = 


7920= 


7922 = 


7933 = 


7935 = 


7934 = 


7936 = 


7937 = 


7940= 


7938 = 


7941 = 


7943 = 


7946 = 


7944 = 


7947 = 


7949 = 


7952 = 


7950= 


7953 = 


7954 = 


3615 


7955 = 


3617 


8200= 


8201 = 


8251 = 


8254 = 


8265 = 


8267 = 


8497 = 


8499 = 


8503 = 


8506 = 


8513 = 


8515 = 


8531 = 


8533 = 


8536 = 


8537 = 


8654 = 


8659 = 


8664 = 


8667 = 


8674 = 


8677 = 


8687 = 


8689 = 


8693 = 


8696 = 


8699 = 


8700= 


8704 = 


8706 = 


87 10= 


8712 = 


8716 = 


8717 = 


8726 = 


8729 = 


8749 = 


8751 = 


8753 = 


8754 = 


8757 = 


8758 = 


8760= 


3619 


879 1 = 


8792 = 


8797 = 


8808 = 


8817 = 


8818 = 


362 1 


3641 


3663 


3685 


3703 


3722 


3727 


3741 


3746 


3756 


3773 


3808 


38 14 


38 16 


3820 


3826 


3840 


3842 


3845 


3942 


3984 


3985 


3987 


4001 


4006 


4023 


4026 


4038 


4040 


4044 


4092 


4103 


4 1 18 


4126 


4145 


4 146 


4150 


4168 


4170 


4187 


4188 


4199 


4208 


42 1 1 


42 12 


4213 


4214 


4216 


4222 


4223 


4224 


423 1 


4247 


4250 


4262 


4317 


4325 


4326 


4328 


435 1 


4353 


4387 


4396 


4397 


4400 


4405 


4406 


4408 


4432 


4435 


4436 


4439 


4445 


4451 


4452 


4456 


4458 


4459 


4461 


4466 


4467 


4469 


4470 


4476 


4479 


4484 


4492 


4531 


4537 


4538 


4544 


4545 


4546 


4547 


4548 


4553 


4557 


4558 


4561 


4591 


4609 


461 1 


4616 


4621 


4626 


4627 


4628 


4635 


4637 


4644 


4715 


4716 


4735 


4736 


4744 


4746 


4767 


4771 


4804 


4813 


4816 


4817 


4818 


4821 


4822 


4823 


4890 


4891 


4894 


4897 
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Ucode Loc'n 





1 


2 


3 


4 


5 


6 


7 


u 


3000 


4898 


4899 


4900 


4902 


4905 


4908 


4909 


4910 


1 1 

u 


OA A f~\ 

oU 1 U 


AO i O 


/QQ7 


AQA7 


4948 


495 1 


4953 


4955 


4974 


u 


3020 


4975 


4976 


4977 


4983 


4991 


5021 


5035 


5038 


u 


3030 


5039 


5051 


5053 


5056 


5065 


5092 


5099 


5100 


u 


3040 


5102 


5104 


5105 


5119 


5134 


5157 


5159 


5162 


u 


3050 


5170 


5174 


5176 


5178 


5206 


5219 


5221 


5222 


u 


3060 


5223 


5225 


5227 


5228 


5229 


5231 


5240 


5242 


u 


3070 


5243 


5246 


5247 


5248 


5253 


5286 


5287 


5288 


u 


3100 


5296 


5320 


5325 


5328 


5353 


5354 


5355 . 


5378 


1 1 
u 


O 1 IU 


□ *tU 1 


10 

Z3 *+ IU 


54 1 1 


543 1 


55 1 5 


5544 


5549 


5564 


u 


3120 


5568 


5569 


5572 


5577 


5579 


5584 


5586 


5587 


u 


3130 


5600 


5602 


5617 


5632 


5633 


5637 


5645 


5651 


u 


3140 


5657 


5671 


5672 


5675 


5695 


5699 


5702 


5705 


u 


3150 


5706 


5709 


5724 


5758 


5761 


5771 


5799 


5804 


u 


3160 


5806 


5812 


5917 


5919 


5921 


5922 


5930 


5968 


u 


3170 


5979 


5980 


5985 


6006 


6012 


6013 


6016 


6028 


u 


3200 


6045 


6052 


6055 


6056 


6057 


6060 


6061 


6063 


1 1 

u 






CA7A 
OU / \J 




6088 


6114 


6121 


6122 


6123 


u 


3220 


6131 


6132 


6133 


6134 


6135 


6136 


6141 


6142 


u 


3230 


6155 


6157 


6159 


6173 


6198 


6201 


6224 


6242 


u 


3240 


6245 


6247 


6255 


6258 


6263 


6265 . 


6272 


6281 


u 


3250 


6292 


6293 


6312 


6334 


6336 


6346 


6347 


6349 


u 


3260 


6350 


6351 


6352 


6353 


6356 


6362 


6367 


6374 


u 


3270 


6380 


6381 


6382 


6385 


6386 


6387 


6402 


6406 


u 


3300 


6426 


6428 


6433 


6434 


6455 


6456 


6470 


6519 


1 1 

u 


on ^ A 
OOlU 




ccoo 




6545 


658 1 


6587 


6588 


6589 


u 


3320 


6590 


6608 


6629 


6631 


6641 


6644 


6649 


6650 


u 


3330 


6651 


6652 


6653 


6655 


6658 


6670 


6673 


6675 


u 


3340 


6677 


6678 


6695 


6736 


6739 


6744 


6746 


6821 


u 


3350 


6843 


6846 


6848 


6867 


6885 


6888 


6890 


6897 


u 


3360 


6898 


6912 


6914 


6919 


6929 


6930 


6938 


6940 


u 


3370 


6948 


6950 


6952 


6953 


6954 


6956 


6959 


6963 


u 


3400 


6965 


6983 


6986 


7027 


7028 


7030 


7031 


7051 


1 1 

u 




7ACO 






7ARfi 


7Dfi 1 
/ \J\j i 


7070 


7072 


7075 


u 


3420 


7077 


7080 


7085 


7088 


7091 


7092 


7094 


7096 


u 


3430 


7105 


7117 


7129 


7138 


7139 


7143 


7152 


7153 


u 


3440 


7156 


7169 


7183 


7193 


7194 


7198 


7221 


7222 


u 


3450 


7225 


7226 


7229 


7230 


7233 


7234 


7237 


7238 


u 


3460 


7246 


7248 


7249 


7250 


7259 


7261 


7266 


7267 


u 


3470 


7270 


7277 


7288 


7292 


7293 


7295 


7299 


7307 


u 


3500 


7308 


7309 


7316 


7317 


7319 


7336 


7337 


7359 


u 


3510 


7360 


7361 


7363 


7369 


7370 


7377 


7382 


7395 


u 


3520 


7404 


7407 


7427 


7428 


7429 


7430 


7431 


7432 


u 


3530 


7433 


7436 


7437 


7438 


7448 


7450 


7453 


7455 


u 


3540 


7456 


7460 


7483 


7497 


7501 


7504 


7517 


7566 


u 


3550 


7619 


7648 


7663 


7664 


7668 


7675 


6907: 


6908 


u 


3560 


7682 


7697 


7713 


7715 


7717 


7719 


7721 


7723 


u 


3570 


7725 


7727 


7729 


7731 


7827 


7834 


7845 


7918 
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* 


1 Ir*oHf» 

UVwUC 


Loc 1 n 


o 


•j 


u 


3600 




7924 


7926 


u 


3610 




7951 


7956 


u 


3620 




8 198 


8 1 99 


u 


3630 




8240 


8244 


u 


3640 




8507 


8510 


u 


3650 




8529 


8530 


u 


3660 




8679 


868 1 


u 


3670 




8745 


8755 


u 


3700 - 


• 3737 


Unused 




u 


3740 




6093: 


6450 


u 


3750 






6451 


u 


3760 








u 


3770 









No errors detected 

End of microcode assembly 

318 pages of listing 

Used 47.06 seconds, 116 pages 
Symbol table: 30P 
Text strings: 9P 
Loc'n assignment: 18P 
Cross reference: 51P 



2 


3 


4 


5 


7929 


7932 


7939 


7942 


7957 


7958 


7960 


8 1 94 


8208 


8209 


8210 


8212 


8247 


8248 


8259 


826 1 


851 1 • 


8517 


8519 


8524 


8538 


8539 


8540 


8543 


8697 


8721 


8724 


8731 


8794 


881 1 


8815 


8831 


6154: 


6287: 


5953: 








5954: 
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7945 7948 

8196 8197 

8238 8239 

8280 8492 

8526 8528 

8547 8650 

8733 8742 
8833 



8207: 



